Análisis de frecuencias en el Censo de Personas 2017 de Chile

DataIntelligence

Abstract

Construímos un código para los registros, tablas de contingencia básicas para las preguntas del Censo del 2017 y aplicaciones en unas comunas.

Parte I: Construcción de la clave

1 Se lee el microdato Censo 2017 csv con la función import de la librería rio.

library("rio")
x <- import("Microdato_Censo2017-Personas.csv")

Hacemos un subset para trabajar mas rápido:

x <- x[c(1:10000),]

El código se construye uniendo los siguientes elementos de la base de datos

COMUNA : Se mantiene igual. DC : Siempre debe tener dos digitos anteponiendo un cero si tiene uno. AREA : Se mantiene igual. ZC_LOC : Siempre debe tener tres digitos anteponiendo un cero si tiene dos y dos si tiene uno.

2 Analicemos la estructura del código de Comuna:

unique(x$COMUNA)

## [1] 15202 15201 15102 15101

• Vemos que algunos códigos tienen 5 digitos y otros 4. Vamos a dejar ésto inalterado . Sin embargo, añadimos un trozo de código si en el futuro se desea agregar un cero previo a las comunas de 4 dígitos para homologar.

# recogemos el campo Comuna:
codigos <- x$COMUNA
# construimos una secuencia llamada rango del 1 al total de filas del dataset:
rango <- seq(1:nrow(x))
# Creamos un string que agrega un cero a todos los registros:
cadena<- paste("0",codigos[rango], sep = "")

# El string cadena tiene o 5 o 6 digitos, los cuales siempre deben ser siempre 5 agregandole un cero al inicio de los que tienen 4.
# Para ello extraemos un substring de la cadena sobre todas las filas (rangos) comenzando desde el primero o el segundo y llegando siempre al 6.

cadena <- substr(cadena,(nchar(cadena)[rango])-(4),6)
codigos <- as.data.frame(codigos)
cadena <- as.data.frame(cadena)
comuna_corr <- cbind(codigos,cadena)

• Lo verificamos

unique(comuna_corr$cadena)

## [1] "15202" "15201" "15102" "15101"

3 Analicemos la estructura del código de DC:

unique(x$DC)

## [1]  1  2  3  4 99  5  6  7  8

Debemos agregar un cero a la izquierda a todos los códigos DC que contengan un dígito:

# Le asignamos a la variable codigos, la variable DC del dataframe x:
codigos <- x$DC

# Creamos una secuencia llamada rango con toda la cantidad de registros del dataframe:
rango <- seq(1:nrow(x))

# Creamos un string que añade un cero a todos los codigos quedando algunos con dos dígitos y otros con tres: 
cadena <- paste("0",codigos[rango], sep = "")

# Ésta es la línea más importante del código. 
# Si el string entrante contiene tres digitos, la función substr comenzaría desde la posición 2 a la 3, y si tiene 2, comenzaría desde la posición 1 a la 3, pero como no existe posición tres, llega a la 2.

cadena <- substr(cadena,(nchar(cadena)[rango])-(1),(nchar(cadena)[rango]))

codigos <- as.data.frame(codigos)
cadena <- as.data.frame(cadena)
dc <- cbind(codigos,cadena)

• Lo verificamos

unique(dc$cadena)

## [1] "01" "02" "03" "04" "99" "05" "06" "07" "08"

4 Analicemos la estructura del código de zc_loc:

a002 <- unique(x$ZC_LOC)

kbl(a002) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "30%", height = "300px")

x
6
8
12
15
4
5
9
11
901
1
2
10
14
13
999
7
21
3
20
17

Deben todos los codigos poseer tres dígitos, agregándole un cero a los que tienen 2 y dos ceros a los que tienen uno.

codigos <- x$ZC_LOC
rango <- seq(1:nrow(x))
cadena<- paste("00",codigos[rango], sep = "")
cadena <- substr(cadena,(nchar(cadena)[rango])-(2),nchar(cadena)[rango])
codigos <- as.data.frame(codigos)
cadena <- as.data.frame(cadena)
cadena_c <- cbind(codigos,cadena)

6 lo verificamos

unique(cadena_c$cadena)

##  [1] "006" "008" "012" "015" "004" "005" "009" "011" "901" "001" "002" "010"
## [13] "014" "013" "999" "007" "021" "003" "020" "017"

7 Unimos nuestra nueva clave a nuestro dataframe original con el nombre de campo clave:

x$clave <- paste(x$COMUNA, dc$cadena, x$AREA,  cadena_c$cadena, sep="")

• Verificamos y vemos que la última columna contiene la clave.

Recordemos que:

COMUNA : Se mantiene igual.
DC : Siempre debe tener dos digitos anteponiendo un cero si tiene uno.
AREA : Se mantiene igual.
ZC_LOC : Siempre debe tener tres digitos anteponiendo un cero si tiene dos y dos si tiene uno.

tablamadre <- head(x,50)

kbl(tablamadre) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")

REGION	PROVINCIA	COMUNA	DC	AREA	ZC_LOC	ID_ZONA_LOC	NVIV	NHOGAR	PERSONAN	P07	P08	P09	P10	P10COMUNA	P10PAIS	P11	P11COMUNA	P11PAIS	P12	P12COMUNA	P12PAIS	P12A_LLEGADA	P12A_TRAMO	P13	P14	P15	P15A	P16	P16A	P16A_OTRO	P17	P18	P19	P20	P21M	P21A	P10PAIS_GRUPO	P11PAIS_GRUPO	P12PAIS_GRUPO	ESCOLARIDAD	P16A_GRUPO	REGION_15R	PROVINCIA_15R	COMUNA_15R	P10COMUNA_15R	P11COMUNA_15R	P12COMUNA_15R	clave
15	152	15202	1	2	6	13225	1	1	1	1	1	73	1	98	998	3	15101	998	1	98	998	9998	98	2	4	6	2	1	2	98	7	98	98	98	98	9998	998	998	998	4	2	15	152	15202	98	15101	98	15202012006
15	152	15202	1	2	6	13225	3	1	1	1	1	78	1	98	998	2	98	998	1	98	998	9998	98	3	98	98	98	1	2	98	7	98	98	98	98	9998	998	998	998	0	2	15	152	15202	98	98	98	15202012006
15	152	15202	1	2	6	13225	3	1	2	2	2	78	1	98	998	2	98	998	1	98	998	9998	98	3	98	98	98	1	2	98	7	98	1	1	3	1965	998	998	998	0	2	15	152	15202	98	98	98	15202012006
15	152	15202	1	2	6	13225	3	1	3	5	2	52	1	98	998	2	98	998	1	98	998	9998	98	1	2	5	2	1	2	98	7	98	2	1	4	1995	998	998	998	2	2	15	152	15202	98	98	98	15202012006
15	152	15202	1	2	6	13225	3	1	4	11	1	44	1	98	998	2	98	998	1	98	998	9998	98	1	3	5	2	1	2	98	1	Z	98	98	98	9998	998	998	998	3	2	15	152	15202	98	98	98	15202012006
15	152	15202	1	2	6	13225	9	1	1	1	1	39	1	98	998	2	98	998	1	98	998	9998	98	2	8	5	1	1	2	98	8	98	98	98	98	9998	998	998	998	8	2	15	152	15202	98	98	98	15202012006
15	152	15202	1	2	6	13225	9	1	2	2	2	35	1	98	998	2	98	998	1	98	998	9998	98	2	6	5	2	1	2	98	1	Z	2	2	11	2004	998	998	998	6	2	15	152	15202	98	98	98	15202012006
15	152	15202	1	2	6	13225	9	1	3	5	1	13	1	98	998	2	98	998	1	98	998	9998	98	1	7	5	2	1	2	98	98	98	98	98	98	9998	998	998	998	7	2	15	152	15202	98	98	98	15202012006
15	152	15202	1	2	6	13225	9	1	4	5	1	12	1	98	998	2	98	998	1	98	998	9998	98	1	6	5	2	1	2	98	98	98	98	98	98	9998	998	998	998	6	2	15	152	15202	98	98	98	15202012006
15	152	15202	1	2	6	13225	10	1	1	1	2	65	1	98	998	2	98	998	1	98	998	9998	98	2	4	5	2	1	2	98	6	98	3	3	9	1992	998	998	998	4	2	15	152	15202	98	98	98	15202012006
15	152	15202	1	2	6	13225	13	1	1	1	1	50	1	98	998	2	98	998	1	98	998	9998	98	2	5	5	2	1	2	98	1	Z	98	98	98	9998	998	998	998	5	2	15	152	15202	98	98	98	15202012006
15	152	15202	1	2	6	13225	13	1	2	4	2	43	1	98	998	2	98	998	1	98	998	9998	98	2	6	5	2	1	2	98	6	98	2	2	3	2002	998	998	998	6	2	15	152	15202	98	98	98	15202012006
15	152	15202	1	2	6	13225	13	1	3	5	1	15	3	15201	998	2	98	998	1	98	998	9998	98	1	1	7	2	1	2	98	8	98	98	98	98	9998	998	998	998	9	2	15	152	15202	15201	98	98	15202012006
15	152	15202	1	2	6	13225	16	1	1	1	1	75	1	98	998	2	98	998	1	98	998	9998	98	3	98	98	98	1	2	98	7	98	98	98	98	9998	998	998	998	0	2	15	152	15202	98	98	98	15202012006
15	152	15202	1	2	6	13225	16	1	2	16	2	58	4	98	68	6	98	998	5	98	998	9999	1	3	98	98	98	1	2	98	7	98	4	4	99	9999	68	68	68	0	2	15	152	15202	98	98	98	15202012006
15	152	15202	1	2	6	13225	16	1	3	2	2	70	1	98	998	2	98	998	1	98	998	9998	98	3	98	98	98	1	2	98	7	98	5	4	99	9999	998	998	998	0	2	15	152	15202	98	98	98	15202012006
15	152	15202	1	2	6	13225	17	1	1	1	2	43	2	98	998	2	98	998	1	98	998	9998	98	2	8	5	1	1	2	98	1	I	3	3	9	2008	998	998	998	8	2	15	152	15202	98	98	98	15202012006
15	152	15202	1	2	6	13225	17	1	2	4	1	55	2	98	998	2	98	998	1	98	998	9998	98	2	6	5	2	1	2	98	6	98	98	98	98	9998	998	998	998	6	2	15	152	15202	98	98	98	15202012006
15	152	15202	1	2	6	13225	17	1	3	5	2	13	2	98	998	2	98	998	2	15101	998	9998	98	1	7	5	2	1	2	98	98	98	98	98	98	9998	998	998	998	7	2	15	152	15202	98	98	15101	15202012006
15	152	15202	1	2	6	13225	17	1	4	5	1	8	2	98	998	2	98	998	2	15101	998	9998	98	1	2	5	2	1	2	98	98	98	98	98	98	9998	998	998	998	2	2	15	152	15202	98	98	15101	15202012006
15	152	15202	1	2	6	13225	17	1	5	15	2	29	2	98	998	4	98	998	3	98	998	2015	1	2	6	5	2	1	2	98	6	98	5	5	11	2014	998	604	604	6	2	15	152	15202	98	98	98	15202012006
15	152	15202	1	2	6	13225	17	1	6	15	1	4	2	98	998	1	98	998	5	98	998	2015	1	1	0	1	2	1	2	98	98	98	98	98	98	9998	998	998	68	0	2	15	152	15202	98	98	98	15202012006
15	152	15202	1	2	6	13225	17	1	7	15	2	2	2	98	998	1	98	998	3	98	998	2015	1	1	0	1	2	1	2	98	98	98	98	98	98	9998	998	998	604	0	2	15	152	15202	98	98	98	15202012006
15	152	15202	1	2	6	13225	17	1	8	15	1	16	2	98	998	6	98	998	1	98	998	9998	98	2	4	5	2	1	2	98	6	98	98	98	98	9998	998	68	998	4	2	15	152	15202	98	98	98	15202012006
15	152	15202	1	2	6	13225	18	1	1	1	2	74	1	98	998	2	98	998	1	98	998	9998	98	2	2	5	2	1	2	98	6	98	2	2	12	1976	998	998	998	2	2	15	152	15202	98	98	98	15202012006
15	152	15202	1	2	6	13225	19	1	1	1	1	68	1	98	998	2	98	998	1	98	998	9998	98	3	98	98	98	1	2	98	7	98	98	98	98	9998	998	998	998	0	2	15	152	15202	98	98	98	15202012006
15	152	15202	1	2	6	13225	20	1	1	1	1	74	1	98	998	3	15101	998	1	98	998	9998	98	2	2	5	2	1	2	98	1	Z	98	98	98	9998	998	998	998	2	2	15	152	15202	98	15101	98	15202012006
15	152	15202	1	2	6	13225	20	1	2	2	2	65	1	98	998	3	997	998	3	98	998	9999	2	2	2	5	2	1	2	98	6	98	2	2	9	1982	998	998	604	2	2	15	152	15202	98	997	98	15202012006
15	152	15202	1	2	6	13225	25	1	1	1	2	76	1	98	998	2	98	998	1	98	998	9998	98	3	98	98	98	1	2	98	6	98	8	6	3	1981	998	998	998	0	2	15	152	15202	98	98	98	15202012006
15	152	15202	1	2	6	13225	25	1	2	5	2	36	1	98	998	2	98	998	1	98	998	9998	98	2	4	8	1	1	2	98	1	A	0	98	98	9998	998	998	998	12	2	15	152	15202	98	98	98	15202012006
15	152	15202	1	2	6	13225	28	1	1	1	2	31	1	98	998	2	98	998	5	98	998	2007	2	2	5	5	2	1	2	98	1	A	2	2	4	2008	998	998	68	5	2	15	152	15202	98	98	98	15202012006
15	152	15202	1	2	6	13225	28	1	2	4	1	35	1	98	998	2	98	998	5	98	998	2007	2	2	6	5	2	1	2	98	1	F	98	98	98	9998	998	998	68	6	2	15	152	15202	98	98	98	15202012006
15	152	15202	1	2	6	13225	28	1	3	5	1	11	1	98	998	2	98	998	5	98	998	2007	2	1	5	5	2	1	2	98	98	98	98	98	98	9998	998	998	68	5	2	15	152	15202	98	98	98	15202012006
15	152	15202	1	2	6	13225	28	1	4	5	1	8	1	98	998	2	98	998	1	98	998	9998	98	1	2	5	2	1	2	98	98	98	98	98	98	9998	998	998	998	2	2	15	152	15202	98	98	98	15202012006
15	152	15202	1	2	6	13225	28	1	5	15	2	74	1	98	998	2	98	998	1	98	998	9998	98	2	3	5	2	1	2	98	6	98	6	6	99	9999	998	998	998	3	2	15	152	15202	98	98	98	15202012006
15	152	15202	1	2	6	13225	33	1	1	1	1	41	1	98	998	2	98	998	1	98	998	9998	98	2	8	5	1	1	2	98	1	Z	98	98	98	9998	998	998	998	8	2	15	152	15202	98	98	98	15202012006
15	152	15202	1	2	6	13225	33	1	2	2	2	47	1	98	998	2	98	998	1	98	998	9998	98	2	8	5	1	1	2	98	1	A	2	1	4	1996	998	998	998	8	2	15	152	15202	98	98	98	15202012006
15	152	15202	1	2	6	13225	33	1	3	14	1	88	1	98	998	2	98	998	1	98	998	9998	98	3	98	98	98	1	2	98	7	98	98	98	98	9998	998	998	998	0	2	15	152	15202	98	98	98	15202012006
15	152	15202	1	2	6	13225	33	1	4	14	1	65	1	98	998	2	98	998	1	98	998	9998	98	2	2	5	2	1	2	98	7	98	98	98	98	9998	998	998	998	2	2	15	152	15202	98	98	98	15202012006
15	152	15202	1	2	6	13225	36	1	1	1	2	59	1	98	998	2	98	998	1	98	998	9998	98	2	2	5	2	1	2	98	6	98	8	8	2	1998	998	998	998	2	2	15	152	15202	98	98	98	15202012006
15	152	15202	1	2	6	13225	36	1	2	2	1	56	1	98	998	99	99	999	1	98	998	9998	98	2	2	5	2	1	2	98	6	98	98	98	98	9998	998	999	998	2	2	15	152	15202	98	99	98	15202012006
15	152	15202	1	2	6	13225	36	1	3	5	2	36	1	98	998	2	98	998	1	98	998	9998	98	2	8	5	1	1	2	98	6	98	2	2	7	2010	998	998	998	8	2	15	152	15202	98	98	98	15202012006
15	152	15202	1	2	6	13225	36	1	4	12	2	13	1	98	998	2	98	998	1	98	998	9998	98	1	7	5	2	1	2	98	98	98	98	98	98	9998	998	998	998	7	2	15	152	15202	98	98	98	15202012006
15	152	15202	1	2	6	13225	36	1	5	12	2	6	1	98	998	2	98	998	1	98	998	9998	98	1	0	3	1	1	2	98	98	98	98	98	98	9998	998	998	998	0	2	15	152	15202	98	98	98	15202012006
15	152	15202	1	2	6	13225	36	1	6	5	1	24	1	98	998	3	15101	998	1	98	998	9998	98	2	4	7	1	1	2	98	1	Z	98	98	98	9998	998	998	998	12	2	15	152	15202	98	15101	98	15202012006
15	152	15202	1	2	6	13225	36	1	7	11	2	24	1	98	998	3	15101	998	1	98	998	9998	98	2	4	7	1	1	2	98	1	N	2	2	11	2015	998	998	998	12	2	15	152	15202	98	15101	98	15202012006
15	152	15202	1	2	6	13225	36	1	8	12	1	6	1	98	998	2	98	998	2	15101	998	9998	98	1	0	3	1	1	2	98	98	98	98	98	98	9998	998	998	998	0	2	15	152	15202	98	98	15101	15202012006
15	152	15202	1	2	6	13225	36	1	9	12	2	1	1	98	998	1	98	998	2	15101	998	9998	98	3	98	98	98	1	2	98	98	98	98	98	98	9998	998	998	998	0	2	15	152	15202	98	98	15101	15202012006
15	152	15202	1	2	6	13225	38	1	1	1	1	19	1	98	998	3	15101	998	2	15101	998	9998	98	1	1	8	2	1	2	98	1	A	98	98	98	9998	998	998	998	9	2	15	152	15202	98	15101	15101	15202012006
15	152	15202	1	2	6	13225	39	1	1	1	1	21	1	98	998	2	98	998	1	98	998	9998	98	2	1	7	2	1	2	98	1	F	98	98	98	9998	998	998	998	9	2	15	152	15202	98	98	98	15202012006

Observemos algunas claves:

unicas <- unique(x$clave)
codigos_unicos <- head(unicas,50)

kbl(codigos_unicos) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")

x
15202012006
15202012008
15202012012
15202012015
15202022004
15202022005
15202022009
15202022011
15202022901
15202032001
15202032002
15202032010
15202032014
15202032901
15202042013
15202042901
15202992999
15201011001
15201012901
15201022002
15201032006
15201032007
15201032901
15201042009
15201042021
15201042901
15201052001
15201052003
15201052012
15201052013
15201052020
15201052901
15201062005
15201062010
15201062017
15201062901
15201072901
15201082004
15201991999
15102012002
15102012003
15102022007
15102032005
15102032008
15102032901
15102042001
15102052004
15102052006
15101011001
15101011002

---

Parte II: Generación de las tablas de contingencia:

El Censo 2017 contempla preguntas agrupadas por el prefijo P y un número. Comenzaremos con la P07:

P07 Relación de parentesco.

La categoria 19: “Persona en operativo calle” no figura en la base de datos.

tabla_P07 <- table(x$clave, x$P07, useNA = "no")

colnames(tabla_P07) <- c("Jefe/a de hogar","Esposo/a o cónyuge","Conviviente por unión civil","Conviviente de hecho o pareja","Hijo/a","Hijo/a del cónyuge, conviviente o pareja","Hermano/a","Padre/madre","Cuñado/a","Suegro/a","Yerno/nuera","Nieto/a","Abuelo/a","Otro pariente","No pariente","Servicio doméstico puertas adentro","Persona en vivienda colectiva","Persona en tránsito")






#write_xlsx(tabla_P07, "tabla_P07.xlsx")
a001 <- head(tabla_P07,5)
kbl(a001) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")

	Jefe/a de hogar	Esposo/a o cónyuge	Conviviente por unión civil	Conviviente de hecho o pareja	Hijo/a	Hijo/a del cónyuge, conviviente o pareja	Hermano/a	Padre/madre	Cuñado/a	Suegro/a	Yerno/nuera	Nieto/a	Abuelo/a	Otro pariente	No pariente	Servicio doméstico puertas adentro	Persona en vivienda colectiva	Persona en tránsito
15101011001	438	125	5	43	274	14	31	14	10	8	16	47	1	66	35	7	411	0
15101011002	339	91	1	33	193	6	19	18	7	3	8	36	2	45	30	2	168	0
15101021001	830	240	9	86	548	14	46	36	7	11	14	107	3	75	62	0	662	0
15102012002	12	4	0	1	7	0	0	0	0	0	0	0	0	0	0	1	0	0
15102012003	220	54	0	9	96	0	10	3	0	1	6	22	0	37	40	2	65	0

P08 Sexo.

tabla_P08 <- table(x$clave, x$P08, useNA = "no")
colnames(tabla_P08) <- c("Hombre","Mujer")

#write_xlsx(tabla_P08, "tabla_P08.xlsx")

a_003 <- head(tabla_P08,50)
kbl(a_003) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")

	Hombre	Mujer
15101011001	843	702
15101011002	494	507
15101021001	1692	1058
15102012002	16	9
15102012003	300	265
15102022007	21	18
15102032005	55	57
15102032008	9	5
15102032901	17	13
15102042001	105	76
15102052004	174	85
15102052006	29	1
15201011001	1323	393
15201012901	19	18
15201022002	37	15
15201032006	22	9
15201032007	38	14
15201032901	18	17
15201042009	10	5
15201042021	41	34
15201042901	10	12
15201052001	34	29
15201052003	38	15
15201052012	12	13
15201052013	7	10
15201052020	11	7
15201052901	3	4
15201062005	4	0
15201062010	21	19
15201062017	2	0
15201062901	2	3
15201072901	25	28
15201082004	7	0
15201991999	370	66
15202012006	27	29
15202012008	6	6
15202012012	9	10
15202012015	96	73
15202022004	25	17
15202022005	8	7
15202022009	29	39
15202022011	70	17
15202022901	10	10
15202032001	14	8
15202032002	14	13
15202032010	4	11
15202032014	69	0
15202032901	8	8
15202042013	15	15
15202042901	8	8

P09 Edad.

tabla_P09 <- table(x$clave, x$P09, useNA = "no")
#write_xlsx(tabla_P09, "tabla_P09.xlsx")


a_004 <- head(tabla_P09,50)

kbl(a_004) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")

	0	1	2	3	4	5	6	7	8	9	10	11	12	13	14	15	16	17	18	19	20	21	22	23	24	25	26	27	28	29	30	31	32	33	34	35	36	37	38	39	40	41	42	43	44	45	46	47	48	49	50	51	52	53	54	55	56	57	58	59	60	61	62	63	64	65	66	67	68	69	70	71	72	73	74	75	76	77	78	79	80	81	82	83	84	85	86	87	88	89	90	91	92	93	95	96	97	98	99	100
15101011001	4	15	15	8	16	8	19	13	12	22	14	16	11	14	13	10	12	10	8	11	22	25	16	22	25	35	27	29	33	20	22	33	24	20	28	23	25	29	29	21	18	19	16	27	21	27	18	19	21	16	18	20	16	15	21	20	29	25	15	24	21	19	19	24	19	12	18	16	20	18	16	20	10	10	10	13	13	11	15	9	6	6	11	7	2	1	7	3	10	2	4	3	0	2	1	1	0	1	0	1
15101011002	9	6	7	8	9	10	7	15	3	6	3	8	11	10	4	12	13	11	7	9	16	12	11	17	14	16	12	15	13	16	15	19	13	21	15	11	16	8	13	12	13	10	15	17	10	19	16	13	10	18	15	13	13	7	17	20	17	17	19	18	11	12	6	17	10	18	9	9	19	12	13	13	7	13	8	14	12	8	3	6	6	3	0	1	3	2	2	3	2	0	4	2	0	0	0	0	1	1	0	1
15101021001	34	39	26	22	23	24	38	25	20	25	26	18	14	27	27	18	25	25	171	219	88	70	68	50	48	65	57	48	42	55	41	41	46	36	43	51	39	29	25	24	30	22	25	36	35	22	20	25	31	32	24	20	22	16	25	27	26	28	18	36	25	27	15	20	23	19	14	14	19	11	10	10	16	19	12	19	14	15	14	10	12	6	11	15	7	7	11	4	2	3	0	5	3	2	1	1	1	0	1	0
15102012002	0	0	2	0	1	0	0	1	0	0	0	1	0	0	0	0	0	0	0	0	0	0	1	0	0	0	1	0	0	0	0	1	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	1	0	0	0	1	0	1	1	1	1	1	1	2	0	1	0	0	1	1	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1
15102012003	5	2	6	5	6	7	5	9	6	5	5	7	4	7	2	7	5	6	5	2	4	10	3	7	6	9	6	6	8	13	8	3	4	9	6	7	11	5	7	6	5	6	8	5	5	15	5	10	3	6	8	10	7	11	10	7	7	7	15	10	8	8	9	9	1	12	7	5	8	12	11	5	8	7	6	4	5	3	2	3	3	3	1	7	0	2	2	1	3	0	1	3	0	0	0	0	1	0	1	0
15102022007	0	1	1	0	0	0	0	1	0	1	2	0	1	1	2	0	0	2	0	2	0	0	1	0	0	0	0	1	1	0	0	2	1	1	1	1	0	0	0	0	3	0	0	1	0	1	0	1	0	0	0	1	0	0	1	0	1	0	0	1	1	0	0	2	0	1	0	0	0	1	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15102032005	1	1	1	1	1	1	1	1	1	1	2	2	1	1	2	1	1	1	1	2	0	2	1	3	2	2	3	2	4	3	0	1	2	0	1	1	1	2	1	1	5	1	2	4	2	2	1	0	1	0	2	1	2	0	0	3	2	1	1	1	0	0	1	0	3	2	2	2	0	3	1	1	0	2	1	3	1	1	0	1	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0
15102032008	0	0	0	1	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	1	1	1	0	1	1	0	0	0	0	1	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	1	0	3	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15102032901	0	0	0	0	0	0	0	0	0	0	0	1	0	1	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	1	2	1	1	1	0	1	1	1	0	1	0	1	0	1	0	0	1	0	0	0	0	0	0	0	1	2	0	1	2	0	1	0	0	0	1	0	2	1	1	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0
15102042001	3	3	3	3	2	1	4	2	3	1	1	1	2	1	2	0	2	1	1	1	2	2	1	5	0	3	3	3	3	1	6	4	7	1	4	3	3	0	0	3	1	1	4	3	3	4	5	3	1	3	5	3	2	0	2	3	4	4	3	0	4	4	3	2	0	2	3	4	3	0	0	1	2	0	0	1	1	1	0	0	1	0	1	1	0	0	0	0	2	0	0	0	0	0	0	0	0	0	0	0
15102052004	2	4	3	2	1	3	4	1	2	6	2	5	0	3	5	2	1	2	1	3	1	5	5	4	6	8	5	3	6	4	7	5	4	6	4	1	6	6	3	3	1	8	6	5	2	5	1	3	2	2	4	8	8	2	3	7	4	3	3	1	6	3	6	5	2	2	2	1	1	2	3	1	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	1	0	1	0	0	0	0	0	0	0	0	0
15102052006	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	2	1	2	0	0	2	0	1	0	1	2	3	3	0	1	0	0	0	0	2	1	1	0	0	0	0	0	1	1	1	1	1	1	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15201011001	1	24	10	17	12	6	10	18	15	13	12	14	8	16	7	9	8	76	252	129	69	38	51	42	45	31	40	33	31	29	32	25	27	29	33	29	29	33	19	27	18	17	16	25	14	12	10	19	16	11	12	12	12	15	8	9	8	11	11	7	3	8	9	5	4	4	2	3	5	2	4	6	1	2	5	5	3	8	3	3	1	1	2	1	5	3	2	0	0	1	1	0	0	0	0	1	0	0	0	1
15201012901	0	1	2	1	0	1	1	1	0	1	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	2	0	1	1	1	1	0	2	0	0	1	0	0	1	1	0	1	0	0	1	0	1	2	0	1	0	0	1	0	1	1	0	1	0	0	1	0	0	0	1	0	0	1	2	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0
15201022002	0	0	0	1	0	0	0	0	1	0	0	0	1	0	1	1	0	0	0	1	0	0	1	1	0	0	0	2	4	1	1	3	1	1	1	0	0	0	1	0	0	0	0	2	0	0	2	3	0	1	2	2	0	0	1	1	2	0	0	2	0	1	1	0	0	1	1	0	0	1	0	0	2	1	0	1	0	0	1	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15201032006	0	0	1	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	2	2	2	1	1	0	1	1	1	0	3	1	1	1	1	0	1	1	0	0	0	0	0	0	1	2	0	0	0	0	0	0	0	0	0	0	1	1	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	2	0	0	0	1	0	0	0	0	0	0	0	0	0	0
15201032007	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	2	0	0	0	0	3	4	2	2	4	0	2	2	2	4	2	1	0	2	1	1	1	1	1	3	2	2	2	0	1	0	0	1	1	0	1	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15201032901	1	0	0	0	0	0	0	1	2	1	0	1	1	1	0	0	0	0	0	0	1	0	0	0	0	1	1	0	0	0	2	0	2	0	1	0	0	0	0	0	0	1	0	1	0	0	0	1	0	0	1	1	0	1	1	1	1	1	0	0	1	1	1	1	1	1	0	0	0	0	1	0	0	0	1	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15201042009	0	0	0	0	0	0	0	0	0	0	1	0	0	0	2	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	1	1	0	0	0	1	0	0	1	0	0	0	1	0	0	0	0	0	1	0	1	0	1	0	0	2	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0
15201042021	0	0	0	1	0	0	0	0	0	1	0	2	0	1	0	0	0	0	0	0	1	0	1	0	2	1	0	0	0	0	1	3	1	0	2	0	1	0	1	1	0	1	2	3	2	0	3	2	1	0	1	0	4	0	1	0	1	0	3	0	1	2	2	1	0	3	0	1	3	1	1	0	1	0	0	2	1	0	2	0	2	2	0	1	1	0	1	0	1	0	1	0	0	0	0	0	0	1	0	0
15201042901	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	1	1	2	0	1	0	0	0	0	0	0	0	0	0	1	1	0	0	0	1	0	2	0	1	2	0	0	0	0	1	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	1	1	0	0	0	1	0	0	0	0	0	0	0	0	1	2	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15201052001	1	0	0	0	0	3	0	1	0	0	1	0	0	3	0	1	0	0	0	0	0	0	0	0	1	0	0	0	0	3	0	0	0	1	1	1	0	4	0	2	0	1	6	0	1	1	0	2	1	2	0	1	0	1	0	2	0	2	0	0	0	0	2	0	2	1	0	0	1	1	1	1	1	1	1	3	0	3	1	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15201052003	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	2	0	1	0	0	0	0	0	0	1	0	0	0	2	0	0	3	0	1	1	0	0	0	2	0	2	1	1	3	1	1	1	1	0	2	0	1	0	0	1	0	0	1	3	1	0	2	1	0	1	0	0	0	1	3	1	0	1	0	0	0	0	0	0	0	1	0	1	2	0	3	0	0	1	1	0	0	0	0	0	0	0	0	0	0
15201052012	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	1	0	1	0	1	0	0	1	1	0	0	0	0	0	1	0	0	0	0	0	0	0	1	0	0	0	0	1	0	1	1	1	0	0	0	0	1	0	1	0	0	0	0	3	0	0	1	0	0	0	0	1	0	0	1	0	1	1	1	0	0	0	1	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15201052013	0	0	0	0	0	0	0	2	0	0	0	5	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	1	0	0	0	1	0	0	0	0	0	0	1	0	0	0	0	0	1	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	1	0	0	2	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15201052020	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	2	0	0	0	2	0	0	0	1	1	0	1	0	1	0	0	0	1	1	0	0	0	1	0	0	1	1	0	1	0	0	0	1	1	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0
15201052901	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	1	0	1	0	0	0	0	0	2	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0
15201062005	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	1	0	0	0	1	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15201062010	0	0	0	0	0	0	0	0	0	1	0	1	0	0	0	0	0	0	0	0	0	0	0	1	1	0	0	0	0	0	1	0	0	0	0	1	0	0	0	1	0	0	0	0	0	0	0	1	0	1	0	0	0	0	1	1	2	0	2	3	2	1	2	2	2	0	0	1	1	0	1	2	1	0	0	2	1	0	0	1	0	2	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15201062017	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15201062901	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	1	0	0	0	0	0	0	0	0	0	1	0	0	1	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15201072901	0	0	0	1	1	2	2	1	2	0	2	0	0	0	0	1	0	0	1	1	0	0	0	0	0	0	0	1	2	0	1	2	1	0	0	2	0	1	1	0	0	1	1	0	0	0	0	0	0	0	0	1	1	0	0	0	1	1	2	1	0	1	0	3	0	2	1	3	2	0	3	1	0	1	0	0	1	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15201082004	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	2	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	1	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15201991999	0	1	2	0	1	0	0	0	0	1	0	0	0	0	0	0	0	0	3	3	5	4	6	4	9	5	14	8	12	9	13	18	7	10	11	19	16	8	8	12	19	16	16	20	7	9	14	9	9	13	10	7	4	10	4	4	9	8	8	3	5	2	3	3	3	3	1	1	2	1	1	2	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15202012006	0	1	1	1	1	0	3	0	2	0	0	1	1	3	0	1	1	0	0	1	0	1	1	0	3	0	1	0	0	1	0	1	0	0	0	2	2	0	0	1	0	1	0	2	1	0	0	1	0	0	1	0	1	0	0	1	1	0	1	1	0	0	0	0	0	3	0	0	1	0	1	1	0	1	3	1	1	0	2	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0
15202012008	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	2	0	1	0	0	0	0	0	0	1	0	0	0	1	2	1	0	0	0	0	0	0	0	0	0	0	1	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15202012012	1	0	1	0	0	0	1	0	0	0	1	0	0	1	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	2	0	0	0	0	0	0	1	2	0	1	1	0	0	0	1	0	0	0	0	1	0	0	0	0	0	1	0	0	1	0	0	0	0	0	0	1	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15202012015	2	3	0	2	1	2	3	2	0	1	0	3	3	1	1	2	1	2	1	1	1	2	3	0	3	3	3	2	2	2	1	3	2	4	3	4	2	5	3	3	4	4	5	3	3	0	2	5	4	1	3	0	1	5	7	3	2	3	3	1	2	3	1	2	1	3	2	1	2	3	2	0	2	0	0	2	0	0	0	0	0	0	0	0	0	1	1	0	0	0	0	0	0	0	0	0	0	0	0	0
15202022004	0	1	0	2	0	0	2	0	3	0	0	1	0	2	1	3	0	0	1	0	0	0	1	0	0	0	1	0	1	0	0	1	0	1	0	1	0	0	1	1	0	1	0	0	0	1	1	0	0	0	0	0	0	2	1	0	0	1	0	2	1	2	0	1	1	0	0	0	0	0	1	0	0	0	0	1	0	1	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15202022005	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	1	1	1	0	0	0	1	0	0	0	1	0	0	0	0	0	0	0	1	0	0	0	1	1	0	0	0	2	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15202022009	2	0	1	2	0	0	0	0	1	1	1	1	0	2	1	1	2	1	1	2	1	0	0	2	1	0	0	0	4	0	0	0	0	0	2	1	1	0	0	1	0	2	2	0	1	2	1	0	2	1	2	1	0	0	0	1	1	1	2	2	0	0	1	1	1	2	2	1	2	0	1	1	0	0	0	0	0	0	0	0	0	0	1	1	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0
15202022011	0	2	0	1	0	0	1	1	0	1	0	0	0	1	0	2	1	0	2	4	3	1	4	3	1	2	2	3	3	5	4	4	0	2	1	0	3	2	0	0	1	1	0	2	2	1	0	0	2	0	0	0	1	0	1	1	2	0	1	1	0	3	1	2	1	0	0	0	1	2	0	0	1	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15202022901	0	0	0	0	1	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	1	0	0	1	0	0	0	0	0	0	1	0	0	0	0	1	0	0	0	0	1	0	0	0	2	0	1	0	0	0	0	0	0	2	0	1	1	0	1	0	0	0	0	0	1	0	0	2	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15202032001	0	1	0	2	0	2	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	1	0	0	3	0	1	0	0	0	0	0	1	1	0	1	0	0	0	0	0	0	0	0	0	1	0	0	1	1	0	0	0	0	0	0	0	0	0	0	0	1	1	0	0	1	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15202032002	1	2	0	1	0	1	0	0	0	1	0	0	0	0	0	0	0	0	0	0	1	0	2	0	1	0	0	0	0	0	0	0	1	0	0	1	0	0	0	0	0	0	0	1	0	0	2	0	0	0	0	1	1	0	2	0	0	0	1	0	0	0	1	0	3	0	0	0	0	0	0	0	0	0	0	1	0	0	0	1	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15202032010	1	1	0	0	0	0	1	1	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	1	0	0	1	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	2	0	0	0	2	0	0	0	0	0	0	2	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15202032014	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	2	7	5	3	4	6	1	4	5	4	3	1	1	4	3	2	5	1	3	1	2	2	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15202032901	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	2	0	0	0	0	0	1	0	1	0	2	0	1	0	1	0	0	2	0	1	0	0	0	0	1	0	1	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15202042013	0	0	0	1	1	0	1	1	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	2	1	0	1	1	1	1	0	0	0	0	0	0	1	0	1	0	0	0	1	2	1	2	0	0	0	0	0	0	0	1	0	0	0	0	1	0	0	0	0	0	0	1	0	0	0	0	0	3	0	1	0	0	0	0	0	1	0	0	0	0	0	2	0	0	0	0	0	0	0	0	0	0	0	0	0
15202042901	1	0	2	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	2	0	0	0	0	0	0	0	0	0	3	0	0	1	1	1	0	0	0	0	0	0	0	1	0	0	1	1	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0

P10 Residencia habitual.

tabla_P10 <- table(x$clave, x$P10, useNA = "no")

#write_xlsx(tabla_P10, "tabla_P10.xlsx")

a_005 <- head(tabla_P10,50)

kbl(a_005) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")

	1	2	3	4	99
15101011001	1087	205	156	80	17
15101011002	784	57	126	15	19
15101021001	1976	674	66	9	25
15102012002	24	1	0	0	0
15102012003	430	27	84	16	8
15102022007	32	0	7	0	0
15102032005	83	9	20	0	0
15102032008	13	0	1	0	0
15102032901	29	0	1	0	0
15102042001	147	12	17	4	1
15102052004	176	54	25	2	2
15102052006	0	4	26	0	0
15201011001	914	711	72	6	13
15201012901	25	0	3	9	0
15201022002	43	2	7	0	0
15201032006	15	2	14	0	0
15201032007	0	5	47	0	0
15201032901	35	0	0	0	0
15201042009	15	0	0	0	0
15201042021	61	1	10	2	1
15201042901	11	2	1	7	1
15201052001	46	2	4	4	7
15201052003	33	10	7	1	2
15201052012	24	1	0	0	0
15201052013	12	0	0	0	5
15201052020	17	0	1	0	0
15201052901	3	3	0	0	1
15201062005	0	0	4	0	0
15201062010	39	0	1	0	0
15201062017	0	1	1	0	0
15201062901	5	0	0	0	0
15201072901	48	3	1	0	1
15201082004	0	0	7	0	0
15201991999	5	0	34	396	1
15202012006	46	8	1	1	0
15202012008	11	0	0	0	1
15202012012	16	1	0	0	2
15202012015	130	14	19	2	4
15202022004	42	0	0	0	0
15202022005	15	0	0	0	0
15202022009	65	0	0	0	3
15202022011	74	12	1	0	0
15202022901	18	0	0	0	2
15202032001	21	0	0	0	1
15202032002	26	0	1	0	0
15202032010	15	0	0	0	0
15202032014	56	13	0	0	0
15202032901	16	0	0	0	0
15202042013	23	7	0	0	0
15202042901	13	0	2	0	1

Demografía geográfica.

P10COMUNA Comuna de residencia habitual.

98: No aplica 99: Missing

tabla_P10COMUNA <- table(x$clave, x$P10COMUNA)

#write_xlsx(tabla_P10COMUNA, "tabla_P10COMUNA.xlsx")

a_006 <- head(tabla_P10COMUNA,50)

kbl(a_006) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")

	98	99	997	1101	1107	1401	1403	2101	2103	2201	3102	3301	4101	4102	4201	4203	4301	5000	5101	5102	5103	5105	5107	5109	5301	5401	5404	5501	5502	5504	5601	5602	5701	5702	5801	5804	6113	6115	6117	6303	7101	7102	7301	7401	7406	7408	8101	8102	8103	8111	8112	8201	8202	8301	8309	9101	9110	9116	9118	9120	9210	10101	10302	12000	12101	13000	13101	13102	13103	13104	13105	13106	13107	13108	13109	13110	13111	13113	13114	13118	13119	13120	13121	13122	13123	13124	13125	13127	13129	13130	13131	13201	13203	13301	13401	13403	13404	13601	13602	13604	13605	14101	14106	14204	15000	15101	15102	15201	15202	16101	16205
15101011001	1372	17	1	9	0	0	0	7	0	5	0	0	4	6	0	0	3	1	3	0	0	0	0	3	0	0	0	0	0	0	0	1	0	0	0	1	1	3	1	2	5	0	1	4	0	0	2	0	1	0	0	0	0	0	0	0	1	1	0	0	0	3	0	0	0	2	22	2	4	0	2	0	1	1	0	3	2	1	5	2	2	0	3	1	2	6	1	1	3	0	3	3	3	0	2	0	1	3	1	3	0	0	0	0	0	0	0	0	0	1	1
15101011002	856	19	5	3	0	0	0	5	0	0	2	4	0	2	0	0	3	0	2	0	0	2	4	2	1	0	0	2	3	0	2	0	1	0	2	0	0	0	1	0	0	1	0	0	1	0	1	0	0	0	1	2	1	1	0	3	0	0	0	2	0	0	0	2	0	0	10	2	2	1	0	2	0	0	2	5	0	2	2	2	3	7	0	0	2	3	0	1	0	6	0	9	0	0	0	0	0	1	1	1	0	1	0	0	0	0	0	0	0	0	0
15101021001	2659	25	4	2	0	0	0	0	0	3	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	1	2	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	2	0	1	0	0	0	0	0	0	0	0	1	0	0	1	0	0	2	0	14	1	0	0	0	0	0	0	0	1	0	0	1	0	10	2	0	0	0	1	2	1	2	0	0	0	0	1	0	0	2	0	0	0	4	1	0	0	0	0	0	0	0	2	0
15102012002	25	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15102012003	473	8	1	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	80	0	0	0	0	0
15102022007	32	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	4	0	0	0	0	0
15102032005	92	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	20	0	0	0	0	0
15102032008	13	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0
15102032901	29	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0
15102042001	163	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	17	0	0	0	0	0
15102052004	232	2	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	3	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	1	0	0	3	0	0	0	0	0	1	0	0	0	14	0	0	0	0	0
15102052006	4	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	22	0	0	0	0	0
15201011001	1631	13	0	0	0	0	0	2	0	0	0	0	0	3	3	1	1	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	2	0	0	0	0	1	1	0	0	0	0	0	0	2	2	0	0	0	0	0	4	0	2	0	0	0	8	0	0	0	1	0	1	0	0	0	0	0	0	1	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	2	0	29	0	0	1	2	0
15201012901	34	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	2	0	0	0	0	0
15201022002	45	0	2	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	5	0	0	0	0	0
15201032006	17	0	0	0	3	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	9	0	0	1	0	0
15201032007	5	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	47	0	0	0	0	0
15201032901	35	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15201042009	15	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15201042021	64	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	9	0	0	1	0	0
15201042901	20	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0
15201052001	52	7	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	3	0	0	0	0	0
15201052003	44	2	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	7	0	0	0	0	0
15201052012	25	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15201052013	12	5	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15201052020	17	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0
15201052901	6	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15201062005	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	1	0	0	0	0
15201062010	39	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15201062017	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0
15201062901	5	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15201072901	51	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0
15201082004	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	7	0	0	0	0	0
15201991999	401	1	1	1	0	0	0	2	1	3	0	0	0	0	0	0	0	0	0	0	1	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	2	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	21	1	0	0	0	0
15202012006	55	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0
15202012008	11	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15202012012	17	2	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15202012015	146	4	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	16	0	1	0	0	0
15202022004	42	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15202022005	15	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15202022009	65	3	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15202022011	86	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0
15202022901	18	2	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15202032001	21	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15202032002	26	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0
15202032010	15	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15202032014	69	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15202032901	16	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15202042013	30	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15202042901	13	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	2	0	0	0	0	0

P11COMUNA Comuna de residencia de hace 5 años.

tabla_P11COMUNA <- table(x$clave, x$P11COMUNA, useNA = "no")
#write_xlsx(tabla_P11COMUNA, "tabla_P11COMUNA.xlsx")


a_007 <- head(tabla_P11COMUNA,50)

kbl(a_007) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")

	98	99	997	1000	1101	1107	1401	1402	1404	1405	2000	2101	2102	2104	2201	2202	2203	2301	2302	3101	3102	3201	3202	3301	3304	4101	4102	4106	4201	4202	4203	4204	4301	4302	4303	5101	5102	5103	5105	5107	5109	5201	5301	5304	5401	5404	5501	5502	5504	5601	5602	5603	5604	5701	5702	5801	5802	5803	5804	6101	6102	6104	6106	6107	6108	6110	6112	6113	6115	6116	6117	6203	6205	6301	6303	6307	6308	6310	7101	7102	7103	7105	7107	7109	7201	7301	7302	7304	7401	7402	7403	7404	7405	7406	7407	7408	8000	8101	8102	8103	8105	8106	8107	8108	8109	8110	8111	8112	8201	8202	8203	8205	8206	8301	8303	8304	8305	8306	8309	8311	8312	8313	9000	9101	9102	9103	9105	9106	9107	9108	9109	9110	9111	9112	9115	9116	9118	9119	9120	9121	9201	9202	9203	9204	9205	9208	9210	9211	10000	10101	10102	10104	10105	10107	10108	10109	10201	10202	10205	10301	10302	10303	10403	11101	11201	11301	12000	12101	13000	13101	13102	13103	13104	13105	13106	13107	13108	13109	13110	13111	13112	13113	13114	13115	13116	13117	13118	13119	13120	13121	13122	13123	13124	13125	13126	13127	13128	13129	13130	13131	13132	13201	13203	13301	13302	13401	13402	13404	13501	13503	13504	13505	13601	13602	13603	13604	13605	14101	14103	14105	14106	14107	14108	14201	14202	14204	15000	15101	15102	15201	15202	16101	16102	16103	16106	16107	16108	16109	16207	16301	16302	16303
15101011001	1181	36	8	0	22	0	0	0	0	0	0	10	1	0	12	0	0	1	0	2	0	0	0	1	0	11	9	0	0	0	1	0	4	0	1	16	0	0	0	0	12	0	0	0	0	0	0	0	0	2	0	1	0	0	1	3	2	0	1	1	0	0	0	0	0	0	0	1	3	0	1	0	0	2	2	0	0	0	5	0	0	0	0	1	0	1	0	0	3	0	0	0	0	2	0	0	1	6	1	1	1	1	0	0	0	3	2	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	1	0	1	1	0	0	0	0	1	0	0	0	1	1	1	0	0	1	0	0	0	1	0	0	0	0	9	0	0	0	0	1	0	1	0	0	4	0	0	0	0	0	0	0	2	1	40	2	3	1	7	4	0	0	1	3	7	1	1	6	0	0	0	2	6	3	3	3	0	8	1	1	3	1	6	0	3	0	6	2	0	2	2	0	1	0	0	0	0	3	0	0	3	0	1	0	0	0	0	1	0	0	0	0	0	0	1	0	2	0	0	0	1	0	0	0	0	0	0
15101011002	745	47	1	0	26	3	0	0	0	1	0	6	0	0	4	0	0	0	0	1	2	1	0	4	0	2	2	0	0	0	0	0	3	0	0	4	0	1	2	3	4	0	0	0	0	0	3	2	0	3	0	0	0	1	0	3	0	0	0	1	1	0	0	0	0	0	0	0	1	0	2	0	0	0	0	0	0	1	1	1	0	0	0	0	0	0	0	0	0	0	0	2	0	1	0	0	0	1	0	1	0	0	0	0	0	4	0	1	2	1	0	0	0	1	0	0	0	0	0	0	0	0	0	5	0	0	0	0	0	0	0	0	0	0	0	0	1	0	2	0	0	0	0	0	0	0	3	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	2	0	2	0	0	22	2	2	1	0	2	0	0	2	5	0	0	3	3	0	0	1	2	3	7	1	0	4	0	0	0	2	1	2	6	0	0	9	0	0	0	1	0	0	0	1	0	0	1	1	0	0	1	1	0	0	0	0	0	0	0	0	0	0	1	1	1	0	0	0	0	0	0	0	0	0	0	0
15101021001	1708	60	12	3	30	4	2	0	0	0	2	25	0	0	28	1	1	2	0	8	0	0	0	3	1	9	5	2	1	1	2	0	7	0	1	21	0	2	0	0	7	2	1	0	1	0	1	4	2	11	1	3	1	5	0	2	2	2	1	12	0	1	0	0	3	1	0	0	0	1	3	1	0	3	4	1	1	3	18	0	0	1	1	3	3	2	1	2	16	1	0	3	2	3	2	0	0	18	10	1	0	3	1	4	1	5	3	2	1	2	3	1	0	18	2	0	5	4	0	0	0	0	0	16	0	1	0	0	1	1	2	0	1	2	1	1	1	1	4	0	4	3	1	1	0	2	0	0	1	11	1	0	0	1	1	2	2	4	1	17	0	1	1	3	6	1	0	5	1	142	12	2	4	5	2	2	2	3	12	6	6	5	28	1	3	5	2	66	5	0	11	7	7	6	3	3	3	4	2	2	1	27	0	3	0	22	1	6	2	0	0	1	1	1	0	4	0	13	0	0	2	0	1	1	1	0	2	0	0	1	0	20	5	0	1	1	0	1	1	4	0	1
15102012002	17	3	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	4	0	0	0	0	0	0	0	0	0	0	0	0
15102012003	354	15	2	0	2	1	0	1	0	0	0	4	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	5	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	3	167	0	3	0	0	0	1	0	0	0	0	0	0	0	0
15102022007	30	0	0	0	1	1	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	4	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15102032005	86	3	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	16	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15102032008	11	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	2	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15102032901	19	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	11	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15102042001	142	0	1	0	0	0	0	4	1	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	26	0	1	0	0	0	0	0	0	0	0	0	0	0	0
15102052004	146	1	0	0	3	3	1	0	1	0	0	6	0	2	0	0	0	0	0	1	0	1	0	0	0	2	0	0	0	0	0	1	0	0	0	1	2	0	0	0	0	0	1	0	1	0	0	0	0	0	0	1	0	0	0	0	0	0	2	0	0	0	0	0	0	0	0	0	1	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	9	1	1	0	0	0	0	0	0	1	0	0	0	0	0	0	0	2	2	1	0	0	1	0	2	0	0	0	0	0	0	0	2	1	0	0	0	0	0	0	1	0	0	0	0	0	0	0	2	2	1	2	0	0	0	0	1	0	41	0	1	0	2	0	0	0	0	0	0	0	0	0	0
15102052006	4	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	2	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	18	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15201011001	662	27	8	0	16	9	0	2	0	9	1	8	0	0	3	0	0	2	0	4	0	0	1	1	0	0	8	0	4	0	1	0	4	0	2	4	1	0	0	0	2	0	4	1	0	0	1	0	0	2	0	1	0	0	0	3	0	0	1	2	0	1	1	1	0	0	1	1	0	0	2	0	0	0	1	0	0	0	5	0	1	0	0	2	0	2	1	3	9	0	0	0	0	0	0	1	0	9	2	1	1	2	0	1	0	1	1	0	5	0	0	1	2	3	0	1	6	0	2	1	1	0	0	4	1	2	1	1	0	2	0	0	3	1	0	1	0	1	4	3	0	0	0	1	1	0	5	1	0	2	0	1	1	0	0	0	0	0	0	5	2	1	0	1	1	0	0	1	0	36	4	64	4	4	12	5	1	3	4	1	4	3	10	0	6	31	4	15	7	0	4	1	96	8	24	2	11	0	2	0	0	7	0	3	2	4	0	3	2	8	1	0	1	1	0	0	3	4	1	0	1	0	2	0	1	4	5	350	0	0	25	7	0	0	0	1	0	0	0	0	1	0
15201012901	31	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	2	0	0	3	0	0	0	0	0	0	0	0	0	0	0
15201022002	30	1	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	1	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	13	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15201032006	17	0	0	0	0	4	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	5	0	0	1	1	0	0	0	0	0	0	0	0	0	0
15201032007	2	0	0	0	1	0	0	0	0	0	0	1	0	0	1	0	0	0	0	2	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	1	0	0	0	1	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	2	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	1	0	0	0	1	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	33	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15201032901	23	4	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	7	0	0	1	0	0	0	0	0	0	0	0	0	0	0
15201042009	15	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15201042021	56	8	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	8	0	0	1	0	0	0	0	0	0	0	0	0	0	0
15201042901	19	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	2	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15201052001	53	7	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	2	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15201052003	31	3	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	2	0	0	0	0	0	0	0	0	0	0	0	0	2	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	15	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15201052012	19	0	0	0	2	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	4	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15201052013	10	6	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15201052020	15	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	3	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15201052901	6	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15201062005	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0
15201062010	37	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	2	0	0	1	0	0	0	0	0	0	0	0	0	0	0
15201062017	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15201062901	4	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15201072901	41	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	2	0	0	0	0	0	0	2	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	6	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15201082004	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15201991999	404	1	0	0	1	0	0	0	0	0	0	2	0	0	3	0	0	0	1	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	2	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	19	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15202012006	49	1	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	5	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15202012008	11	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15202012012	17	2	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15202012015	105	5	1	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	1	0	2	0	0	0	1	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	3	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	41	0	4	0	0	0	0	0	0	0	0	0	0	0	0
15202022004	41	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15202022005	15	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15202022009	58	6	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	4	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15202022011	32	0	0	0	1	0	0	0	0	0	0	0	1	0	3	0	0	2	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	1	1	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	6	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	2	0	1	0	0	0	0	0	0	0	1	0	1	0	0	0	0	0	0	2	0	0	1	0	0	0	0	0	0	0	0	0	0	0	23	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15202022901	17	3	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15202032001	16	1	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15202032002	24	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	3	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15202032010	12	0	2	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15202032014	4	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	1	0	0	1	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	1	0	0	0	0	0	1	0	0	0	1	0	1	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	2	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	1	0	0	1	0	0	0	0	0	2	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	4	0	0	0	0	0	0	0	0	1	0	0	0	0	1	0	0	1	0	0	0	0	1	1	0	0	0	0	0	0	1	0	0	0	2	0	1	0	0	1	0	0	0	0	0	0	0	0	1	0	0	0	1	0	0	0	0	0	27	0	0	0	1	0	0	0	0	1	0	0	0	0	0
15202032901	15	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15202042013	25	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	3	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15202042901	11	2	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	3	0	0	0	0	0	0	0	0	0	0	0	0	0	0

P12COMUNA Comuna de de nacimiento.

tabla_P12COMUNA <- table(x$clave, x$P12COMUNA, useNA = "no")
#write_xlsx(tabla_P12COMUNA, "tabla_P12COMUNA.xlsx")

a_008 <- head(tabla_P12COMUNA,50)

kbl(a_008) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")

	98	99	997	1000	1101	1107	1401	1402	1403	1404	1405	2000	2101	2102	2103	2104	2201	2203	2301	2302	3101	3102	3103	3201	3202	3301	3302	3303	3304	4000	4101	4102	4103	4104	4106	4201	4202	4203	4204	4301	4302	4303	4304	4305	5000	5101	5102	5103	5105	5107	5109	5201	5301	5302	5304	5401	5404	5501	5502	5504	5506	5601	5603	5604	5606	5701	5702	5703	5705	5801	5802	5803	5804	6000	6101	6102	6104	6105	6106	6107	6108	6109	6110	6111	6112	6113	6114	6115	6116	6117	6201	6203	6205	6206	6301	6302	6303	6305	6306	6308	6310	7101	7102	7103	7105	7106	7107	7109	7201	7202	7301	7304	7306	7401	7402	7403	7404	7405	7406	7407	7408	8000	8101	8102	8103	8104	8106	8107	8109	8110	8111	8112	8201	8202	8203	8204	8205	8206	8301	8302	8303	8304	8305	8306	8307	8309	8310	8311	8312	8313	9000	9101	9102	9103	9105	9106	9107	9108	9109	9111	9112	9114	9115	9116	9117	9118	9119	9120	9121	9201	9202	9203	9204	9205	9207	9208	9209	9210	9211	10000	10101	10102	10104	10105	10106	10107	10108	10109	10201	10202	10205	10208	10301	10302	10303	10304	10307	10401	10403	10404	11101	11201	12000	12101	12104	12401	13000	13101	13102	13103	13104	13105	13106	13107	13108	13109	13110	13111	13112	13113	13114	13115	13116	13117	13118	13119	13120	13121	13122	13123	13124	13125	13126	13127	13128	13129	13130	13131	13132	13201	13202	13203	13301	13302	13303	13401	13402	13403	13404	13501	13502	13503	13505	13601	13602	13603	13604	13605	14000	14101	14103	14104	14105	14106	14107	14108	14201	14202	14203	14204	15000	15101	15102	15201	15202	16101	16102	16103	16104	16106	16107	16108	16109	16201	16203	16205	16207	16301	16302	16303
15101011001	931	28	22	2	39	0	10	1	0	6	0	0	19	2	0	1	18	1	6	6	3	1	0	2	0	10	0	0	0	2	14	13	1	0	1	1	1	2	1	12	0	1	2	0	0	27	0	0	0	0	15	0	1	0	0	0	0	1	2	0	0	1	1	0	0	2	0	0	0	4	2	0	1	0	5	0	0	0	0	0	1	1	0	0	0	3	0	2	0	1	0	0	0	1	1	0	2	0	0	0	0	6	0	1	0	0	0	1	1	1	0	0	0	2	0	0	1	0	1	2	0	0	12	3	1	0	1	2	1	6	2	0	0	0	1	0	2	0	2	0	0	1	0	0	0	0	0	0	0	0	0	9	0	2	0	0	0	0	0	0	0	1	0	1	0	1	0	3	0	3	0	0	1	0	1	0	0	2	0	0	10	0	0	0	0	0	0	2	1	0	0	0	3	0	1	1	0	0	0	0	1	0	0	2	0	0	1	103	2	1	4	0	0	0	1	3	0	4	0	0	1	0	1	0	0	5	6	1	2	7	5	0	4	2	0	0	9	2	1	4	0	1	0	0	0	5	0	0	2	3	0	0	1	1	0	0	1	0	0	6	0	0	0	0	0	2	0	0	0	4	0	0	0	5	1	14	0	0	0	0	1	0	0	0	0	0	0	1	0	0
15101011002	531	51	19	0	26	0	3	0	0	0	1	0	8	1	0	4	12	0	6	1	2	2	0	0	0	8	0	0	0	0	5	6	1	0	0	2	0	0	0	14	0	2	1	0	2	24	0	0	1	1	10	0	1	0	0	1	0	1	3	1	0	7	0	0	0	4	1	0	0	1	0	0	1	1	4	1	0	0	0	0	0	0	1	0	0	1	0	1	0	0	0	0	0	0	0	0	1	0	1	0	0	1	3	0	0	0	0	1	0	0	0	1	0	0	0	1	2	0	0	0	0	1	5	4	0	0	2	0	0	6	5	0	3	0	0	2	0	0	1	0	0	0	0	0	0	0	2	0	0	0	4	3	0	0	0	0	1	0	0	1	0	0	1	0	1	0	0	2	0	1	0	0	0	0	0	0	0	6	1	1	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	1	0	0	0	2	1	2	0	0	0	76	1	2	4	0	1	0	2	3	0	0	0	1	1	1	0	0	1	2	5	3	0	6	0	0	5	2	0	0	9	1	1	5	1	0	1	0	0	5	0	0	0	1	0	0	0	0	1	0	0	3	0	3	1	0	0	0	0	2	1	0	0	0	0	0	0	0	1	1	2	0	0	0	0	0	0	0	0	0	0	1	0	0
15101021001	1165	61	30	2	70	1	4	0	0	4	1	1	44	1	0	6	53	2	16	4	5	0	0	3	0	9	0	1	1	0	10	9	1	1	2	3	2	3	0	24	0	5	0	0	0	46	1	2	0	1	27	1	6	0	1	3	0	10	4	1	1	14	2	1	0	6	0	0	0	13	4	3	2	0	13	0	1	0	1	0	0	0	2	0	0	0	2	0	1	7	1	1	0	0	9	0	4	0	2	2	1	23	3	0	1	1	1	0	6	1	6	2	1	13	1	0	6	1	4	1	0	0	26	8	5	0	4	5	0	14	4	1	1	3	6	0	1	0	23	1	2	3	4	2	1	1	0	0	0	1	1	31	2	6	0	0	1	4	1	1	2	2	0	1	0	1	0	3	0	7	1	3	2	1	0	3	2	1	5	2	12	2	2	0	0	1	1	1	1	7	1	1	23	0	0	0	0	0	0	0	8	2	0	12	0	2	4	255	11	5	4	5	8	1	8	4	13	7	4	1	17	0	6	7	1	33	8	0	10	18	8	3	12	7	7	4	13	3	3	24	1	1	1	0	1	19	1	0	4	3	0	1	2	3	0	0	3	0	1	24	0	0	0	2	0	2	5	2	1	1	1	0	3	4	5	32	5	0	2	2	1	1	1	2	0	1	1	8	0	3
15102012002	18	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	2	0	3	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15102012003	291	9	7	1	5	0	0	1	1	3	0	0	11	0	0	0	1	0	0	0	0	0	0	0	0	3	0	0	0	1	0	0	0	0	0	0	1	0	1	3	1	0	0	0	0	6	0	0	0	0	1	0	2	1	0	0	0	0	1	0	0	1	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	1	1	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	1	0	0	0	0	0	2	1	0	0	0	0	0	0	0	1	0	0	1	0	0	0	0	0	0	0	0	2	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	2	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	2	0	0	0	14	0	0	1	0	0	0	0	0	1	0	0	0	0	0	0	0	0	1	1	0	0	0	0	1	1	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	5	136	0	22	4	1	0	1	0	0	0	0	0	0	1	0	0	0	0	0
15102022007	29	0	0	0	0	0	0	1	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	2	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	2	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	3	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15102032005	72	1	1	0	2	0	0	1	1	1	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	1	0	0	0	0	0	2	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	3	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	12	0	4	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15102032008	12	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	2	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15102032901	16	0	1	0	0	0	0	0	3	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	7	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15102042001	132	0	2	0	0	0	0	3	0	1	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	1	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	1	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	22	0	4	2	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15102052004	61	0	3	0	10	2	5	0	0	0	0	0	10	1	0	2	1	1	5	0	0	0	0	0	0	3	1	0	0	0	2	7	0	0	1	0	0	0	5	2	1	0	0	0	0	1	2	0	0	0	0	0	0	0	0	2	0	0	1	0	0	1	0	0	0	0	0	0	0	3	0	0	3	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	1	0	0	1	0	0	0	0	0	0	1	0	0	1	0	0	0	0	1	0	0	0	1	0	0	0	1	0	0	1	0	0	0	0	1	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	1	1	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	1	0	0	0	0	0	0	1	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	1	0	0	0	2	0	0	8	0	0	0	0	0	0	2	0	0	0	0	0	0	0	0	0	0	2	1	0	1	0	0	2	0	0	1	0	0	0	0	2	0	1	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	1	3	2	1	1	2	0	0	0	0	0	1	0	66	0	1	1	2	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15102052006	5	0	0	0	1	0	0	0	0	0	0	0	1	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	2	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	14	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15201011001	471	31	23	2	16	3	0	3	4	0	3	0	7	1	0	0	4	0	3	1	2	0	0	0	0	3	0	0	0	0	5	3	0	0	2	1	0	1	0	6	1	2	0	0	0	8	0	0	0	1	6	0	4	0	0	0	0	0	3	0	1	3	0	1	0	3	0	1	1	3	1	1	0	0	8	0	1	0	1	0	0	0	0	0	2	1	0	2	0	1	0	0	0	0	1	0	2	1	0	0	0	16	0	1	0	0	0	4	4	0	7	6	0	17	3	0	4	0	2	0	2	0	18	4	1	1	4	0	0	5	4	1	5	0	3	0	2	1	7	0	1	2	9	0	0	2	0	3	1	0	0	14	2	2	1	2	0	2	2	4	0	0	1	1	0	0	1	5	3	4	0	0	0	1	0	1	0	6	6	0	2	1	2	1	0	2	1	1	0	2	0	0	6	2	0	0	1	0	1	1	0	0	0	2	0	0	3	60	5	40	4	5	12	3	10	4	2	5	8	1	4	0	5	24	4	8	4	2	2	15	71	6	41	3	12	3	5	2	0	7	0	0	2	1	0	14	0	0	1	2	0	6	1	2	1	0	1	4	0	11	1	4	0	0	1	4	3	2	1	2	4	294	3	0	62	19	2	0	1	1	0	0	1	0	1	1	1	2	2	0
15201012901	23	2	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	3	0	0	8	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15201022002	31	1	0	0	1	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	1	0	0	0	0	2	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	2	0	0	3	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15201032006	20	0	0	0	1	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	2	0	0	2	0	0	0	0	0	0	1	0	0	1	0	0	0	0	0
15201032007	3	0	0	0	2	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	3	0	0	0	0	1	0	0	0	0	1	0	0	0	0	0	0	0	0	0	2	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	1	0	0	0	1	1	0	0	0	0	0	1	0	0	1	0	0	1	1	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	23	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15201032901	19	0	3	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	7	0	0	6	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15201042009	13	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15201042021	58	3	2	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	6	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15201042901	20	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15201052001	45	10	2	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	4	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15201052003	27	3	1	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	2	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	2	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	2	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	6	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	5	0	0	0	0	0	0	0	0	0	0	0	0	0	0	2	0	0	0
15201052012	20	0	0	0	1	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	2	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15201052013	9	5	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15201052020	15	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15201052901	5	1	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15201062005	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15201062010	35	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	4	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15201062017	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15201062901	5	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15201072901	36	1	2	0	0	0	1	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	6	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15201082004	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15201991999	419	0	1	0	0	0	0	0	0	0	0	0	2	0	0	0	3	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	2	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	6	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15202012006	51	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	5	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15202012008	10	1	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15202012012	13	2	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	2	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15202012015	106	7	0	0	1	0	0	1	0	1	0	0	0	0	1	0	0	0	0	0	0	0	0	1	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	1	0	1	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	2	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	2	0	0	0	0	0	0	0	0	0	0	1	0	0	0	4	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	28	0	1	0	1	0	0	0	0	0	0	1	0	0	0	0	0	0	0
15202022004	41	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15202022005	14	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15202022009	59	3	1	0	0	0	1	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	3	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15202022011	40	3	2	0	1	0	0	0	1	0	0	0	1	0	0	0	0	0	1	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	1	0	1	0	0	0	0	3	0	0	0	0	0	0	0	0	1	0	0	1	0	0	1	0	0	0	0	0	1	0	0	0	0	0	0	1	1	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	7	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	2	0	0	0	0	0	1	0	0	1	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	1	0	0	0	0	0	6	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15202022901	20	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15202032001	15	1	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15202032002	24	1	1	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15202032010	9	0	2	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	4	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15202032014	2	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	1	0	0	0	0	0	1	0	0	0	0	1	0	1	0	0	0	0	0	0	0	0	2	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	2	0	0	0	0	0	0	1	0	1	1	0	2	0	1	1	1	1	0	0	0	1	3	0	0	0	0	0	2	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	3	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	2	0	0	1	0	0	0	0	0	0	0	2	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	4	0	0	1	0	0	0	0	0	1	1	0	0	0	0	0	0	1	0	1	0	1	0	1	0	0	0	0	1	0	0	0	1	0	0	1	0	0	1	1	1	0	1	0	0	0	0	0	0	0	1	0	1	0	0	0	1	1	1	0	0	0	0	0	2	0	0	0	1	1	0	1	0	0	0	0	0	0	0	0	0	0	0
15202032901	16	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15202042013	22	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15202042901	15	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0

P10PAIS País de residencia habitual.

tabla_P10PAIS <- table(x$clave, x$P10PAIS, useNA = "no")

#write_xlsx(tabla_P10PAIS, "tabla_P10PAIS.xlsx")

a_010 <- head(tabla_P10PAIS,50)

kbl(a_010) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")

	29	32	36	56	68	124	170	208	250	276	554	604	724	756	840	997	998	999
15101011001	0	6	0	0	8	0	4	0	0	0	2	56	1	0	2	1	1448	17
15101011002	0	0	0	0	2	0	0	4	2	0	0	5	0	1	1	0	967	19
15101021001	0	0	0	2	1	0	0	0	0	0	0	5	1	0	0	0	2716	25
15102012002	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	25	0
15102012003	0	0	0	2	8	1	0	0	3	0	0	2	0	0	0	0	541	8
15102022007	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	39	0
15102032005	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	112	0
15102032008	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	14	0
15102032901	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	30	0
15102042001	0	0	0	0	2	0	0	0	0	0	0	2	0	0	0	0	176	1
15102052004	0	0	0	0	1	0	0	0	0	0	0	1	0	0	0	0	255	2
15102052006	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	30	0
15201011001	0	0	1	0	1	0	0	0	0	0	0	2	2	0	0	0	1697	13
15201012901	0	0	0	0	0	0	0	0	8	0	0	0	0	1	0	0	28	0
15201022002	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	52	0
15201032006	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	31	0
15201032007	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	52	0
15201032901	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	35	0
15201042009	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	15	0
15201042021	0	0	0	0	0	0	0	0	0	0	0	2	0	0	0	0	72	1
15201042901	0	0	0	0	1	0	0	0	0	0	0	6	0	0	0	0	14	1
15201052001	0	0	0	0	2	0	0	0	0	0	0	2	0	0	0	0	52	7
15201052003	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	50	2
15201052012	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	25	0
15201052013	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	12	5
15201052020	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	18	0
15201052901	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	6	1
15201062005	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	4	0
15201062010	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	40	0
15201062017	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	2	0
15201062901	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	5	0
15201072901	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	52	1
15201082004	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	7	0
15201991999	1	0	0	0	390	0	0	0	0	2	0	1	0	0	1	1	39	1
15202012006	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	55	0
15202012008	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	11	1
15202012012	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	17	2
15202012015	0	0	0	0	2	0	0	0	0	0	0	0	0	0	0	0	163	4
15202022004	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	42	0
15202022005	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	15	0
15202022009	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	65	3
15202022011	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	87	0
15202022901	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	18	2
15202032001	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	21	1
15202032002	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	27	0
15202032010	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	15	0
15202032014	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	69	0
15202032901	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	16	0
15202042013	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	30	0
15202042901	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	15	1

P11PAIS País de residencia hace 5 años.

tabla_P11PAIS <- table(x$clave, x$P11PAIS, useNA = "no")
#write_xlsx(tabla_P11PAIS, "tabla_P11PAIS.xlsx")

a_011 <- head(tabla_P11PAIS,50)

kbl(a_011) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")

	2	5	36	51	56	76	124	150	192	208	214	250	276	332	392	484	528	554	591	643	724	752	756	826	840	862	997	998	999
15101011001	0	0	0	2	0	0	1	0	0	0	3	0	0	0	0	2	0	2	1	0	8	0	0	0	1	2	2	1485	36
15101011002	0	0	0	0	0	0	0	0	0	2	0	2	0	0	0	0	0	0	0	0	1	0	0	1	2	0	0	946	47
15101021001	1	0	3	0	4	1	1	1	2	0	1	1	1	0	0	0	0	0	0	1	12	1	0	1	0	6	1	2652	60
15102012002	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	22	3
15102012003	0	0	0	0	2	0	1	0	0	0	0	3	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	543	15
15102022007	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	39	0
15102032005	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	108	3
15102032008	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	13	1
15102032901	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	30	0
15102042001	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	180	0
15102052004	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	258	1
15102052006	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	30	0
15201011001	0	0	1	0	0	0	0	0	0	0	0	0	1	1	0	1	1	0	0	1	1	0	0	0	0	0	0	1682	27
15201012901	0	0	0	0	0	0	0	0	0	0	0	8	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	28	0
15201022002	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	51	1
15201032006	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	31	0
15201032007	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	52	0
15201032901	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	31	4
15201042009	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	15	0
15201042021	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	67	8
15201042901	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	21	1
15201052001	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	56	7
15201052003	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	50	3
15201052012	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	25	0
15201052013	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	11	6
15201052020	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	18	0
15201052901	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	6	1
15201062005	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	4	0
15201062010	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	40	0
15201062017	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	2	0
15201062901	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	5	0
15201072901	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	52	1
15201082004	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	7	0
15201991999	0	0	0	0	0	0	0	0	0	0	0	0	3	0	0	0	0	0	0	0	0	0	0	0	1	0	0	431	1
15202012006	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	55	1
15202012008	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	11	1
15202012012	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	17	2
15202012015	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	164	5
15202022004	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	42	0
15202022005	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	15	0
15202022009	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	62	6
15202022011	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	87	0
15202022901	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	17	3
15202032001	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	21	1
15202032002	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	27	0
15202032010	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	15	0
15202032014	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	69	0
15202032901	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	16	0
15202042013	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	29	1
15202042901	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	14	2

P12PAIS País de nacimiento.

tabla_P12PAIS <- table(x$clave, x$P12PAIS, useNA = "no")
#write_xlsx(tabla_P12PAIS, "tabla_P12PAIS.xlsx")

a_012 <- head(tabla_P12PAIS,50)

kbl(a_012) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")

	5	36	51	56	76	124	156	191	192	208	214	250	276	356	380	392	410	422	484	528	554	600	608	643	724	756	760	826	840	858	862	997	998	999
15101011001	0	0	1	0	1	1	3	0	1	0	4	0	1	3	3	0	0	0	1	0	1	1	1	0	3	0	0	1	1	1	2	2	1485	28
15101011002	0	0	0	0	0	0	3	0	2	3	0	1	1	0	2	0	1	1	0	0	0	0	0	0	3	0	0	0	1	0	0	0	932	51
15101021001	0	1	0	3	4	0	0	0	1	0	1	0	0	0	2	0	0	0	0	0	0	2	0	1	8	1	1	1	2	0	3	0	2658	61
15102012002	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	25	0
15102012003	0	0	0	2	0	1	0	1	0	0	0	3	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	548	9
15102022007	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	39	0
15102032005	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	111	1
15102032008	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	14	0
15102032901	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	30	0
15102042001	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	181	0
15102052004	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	259	0
15102052006	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	30	0
15201011001	0	1	0	0	0	0	0	0	0	0	0	0	1	0	2	0	0	0	2	1	0	0	0	0	1	0	0	0	1	0	1	0	1675	31
15201012901	0	0	0	0	0	0	0	0	0	0	0	8	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	26	2
15201022002	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	51	1
15201032006	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	31	0
15201032007	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	51	0
15201032901	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	35	0
15201042009	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	14	1
15201042021	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	71	3
15201042901	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	21	1
15201052001	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	53	10
15201052003	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	50	3
15201052012	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	25	0
15201052013	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	12	5
15201052020	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	18	0
15201052901	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	6	1
15201062005	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	4	0
15201062010	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	40	0
15201062017	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	2	0
15201062901	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	5	0
15201072901	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	52	1
15201082004	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	7	0
15201991999	0	0	0	0	0	0	0	0	0	0	0	0	2	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	4	429	0
15202012006	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	56	0
15202012008	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	11	1
15202012012	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	17	2
15202012015	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	162	7
15202022004	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	42	0
15202022005	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	15	0
15202022009	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	65	3
15202022011	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	83	3
15202022901	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	20	0
15202032001	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	21	1
15202032002	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	26	1
15202032010	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	15	0
15202032014	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	69	0
15202032901	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	16	0
15202042013	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	29	1
15202042901	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	15	1

P11 Residencia hace 5 años.

tabla_P11 <- table(x$clave, x$P11, useNA = "no")

colnames(tabla_P11) <- c("Aún no nacía","En esta comuna","En otra comuna","Perú","Argentina","Bolivia","Ecuador","Colombia","Otro","Missing")

#write_xlsx(tabla_P11, "tabla_P11.xlsx")

a_111 <- head(tabla_P11,50)

kbl(a_111) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")

	Aún no nacía	En esta comuna	En otra comuna	Perú	Argentina	Bolivia	Ecuador	Colombia	Otro	Missing
15101011001	58	926	328	98	7	51	3	14	24	36
15101011002	39	652	209	18	1	15	0	12	8	47
15101021001	144	1402	982	50	6	38	5	25	38	60
15102012002	3	12	5	2	0	0	0	0	0	3
15102012003	24	293	196	14	0	16	0	0	7	15
15102022007	2	28	9	0	0	0	0	0	0	0
15102032005	5	79	23	0	0	1	0	0	1	3
15102032008	1	10	2	0	0	0	0	0	0	1
15102032901	0	19	11	0	0	0	0	0	0	0
15102042001	14	97	39	19	0	11	0	0	1	0
15102052004	12	122	112	9	0	3	0	0	0	1
15102052006	0	4	26	0	0	0	0	0	0	0
15201011001	64	531	1027	17	0	43	0	0	7	27
15201012901	4	17	6	1	0	0	0	0	9	0
15201022002	1	28	21	0	0	1	0	0	0	1
15201032006	2	8	14	0	0	7	0	0	0	0
15201032007	0	2	50	0	0	0	0	0	0	0
15201032901	1	21	8	1	0	0	0	0	0	4
15201042009	0	15	0	0	0	0	0	0	0	0
15201042021	1	44	11	11	0	0	0	0	0	8
15201042901	0	10	2	8	0	1	0	0	0	1
15201052001	1	44	3	2	0	6	0	0	0	7
15201052003	0	30	19	1	0	0	0	0	0	3
15201052012	0	18	6	0	0	1	0	0	0	0
15201052013	0	10	1	0	0	0	0	0	0	6
15201052020	0	15	3	0	0	0	0	0	0	0
15201052901	0	6	0	0	0	0	0	0	0	1
15201062005	0	0	4	0	0	0	0	0	0	0
15201062010	0	37	3	0	0	0	0	0	0	0
15201062017	0	1	1	0	0	0	0	0	0	0
15201062901	0	4	1	0	0	0	0	0	0	0
15201072901	2	35	11	0	0	4	0	0	0	1
15201082004	0	1	6	0	0	0	0	0	0	0
15201991999	4	5	31	3	0	388	0	0	4	1
15202012006	4	42	6	1	0	2	0	0	0	1
15202012008	0	11	0	0	0	0	0	0	0	1
15202012012	2	11	0	1	0	3	0	0	0	2
15202012015	8	85	59	0	0	12	0	0	0	5
15202022004	3	38	1	0	0	0	0	0	0	0
15202022005	1	14	0	0	0	0	0	0	0	0
15202022009	5	52	4	0	0	1	0	0	0	6
15202022011	3	29	55	0	0	0	0	0	0	0
15202022901	1	16	0	0	0	0	0	0	0	3
15202032001	3	13	5	0	0	0	0	0	0	1
15202032002	4	16	3	2	0	2	0	0	0	0
15202032010	2	10	3	0	0	0	0	0	0	0
15202032014	0	4	65	0	0	0	0	0	0	0
15202032901	0	15	1	0	0	0	0	0	0	0
15202042013	2	22	4	1	0	0	0	0	0	1
15202042901	3	5	3	0	0	3	0	0	0	2

P12 Lugar de nacimiento

tabla_P12 <- table(x$clave, x$P12, useNA = "no")


colnames(tabla_P12) <- c("En esta comuna","En otra comuna","Perú","Argentina","Bolivia","Ecuador","Colombia","Otro","Missing")




#write_xlsx(tabla_P12, "tabla_P12.xlsx")

a_112 <- head(tabla_P12,50)

kbl(a_112) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")

	En esta comuna	En otra comuna	Perú	Argentina	Bolivia	Ecuador	Colombia	Otro	Missing
15101011001	594	586	187	7	88	2	21	32	28
15101011002	421	419	40	4	31	2	15	18	51
15101021001	885	1524	108	15	78	12	36	31	61
15102012002	13	7	3	0	2	0	0	0	0
15102012003	234	265	21	0	27	1	0	8	9
15102022007	29	10	0	0	0	0	0	0	0
15102032005	66	39	0	1	5	0	0	0	1
15102032008	12	2	0	0	0	0	0	0	0
15102032901	16	14	0	0	0	0	0	0	0
15102042001	85	49	20	1	26	0	0	0	0
15102052004	36	198	19	0	5	0	1	0	0
15102052006	2	25	2	0	1	0	0	0	0
15201011001	297	1214	29	4	131	0	0	10	31
15201012901	10	12	4	0	0	0	0	9	2
15201022002	27	20	0	0	4	0	0	0	1
15201032006	3	11	1	0	16	0	0	0	0
15201032007	1	49	0	0	1	0	0	1	0
15201032901	12	16	1	0	6	0	0	0	0
15201042009	11	1	1	0	1	0	0	0	1
15201042021	43	14	12	0	2	0	0	1	3
15201042901	10	1	8	1	1	0	0	0	1
15201052001	32	8	3	0	10	0	0	0	10
15201052003	23	23	1	0	3	0	0	0	3
15201052012	16	5	1	0	3	0	0	0	0
15201052013	8	3	0	0	1	0	0	0	5
15201052020	13	3	1	0	1	0	0	0	0
15201052901	5	1	0	0	0	0	0	0	1
15201062005	0	4	0	0	0	0	0	0	0
15201062010	31	5	0	0	4	0	0	0	0
15201062017	1	1	0	0	0	0	0	0	0
15201062901	4	0	0	0	1	0	0	0	0
15201072901	28	16	0	0	8	0	0	0	1
15201082004	0	7	0	0	0	0	0	0	0
15201991999	2	17	5	1	402	1	1	7	0
15202012006	43	5	3	0	5	0	0	0	0
15202012008	7	1	3	0	0	0	0	0	1
15202012012	7	4	5	0	1	0	0	0	2
15202012015	85	56	0	0	21	0	0	0	7
15202022004	40	1	0	0	1	0	0	0	0
15202022005	13	1	0	0	1	0	0	0	0
15202022009	48	6	1	0	10	0	0	0	3
15202022011	29	44	0	0	10	0	0	1	3
15202022901	19	0	0	0	1	0	0	0	0
15202032001	13	6	2	0	0	0	0	0	1
15202032002	19	2	2	0	3	0	0	0	1
15202032010	6	6	0	0	3	0	0	0	0
15202032014	1	67	0	1	0	0	0	0	0
15202032901	16	0	0	0	0	0	0	0	0
15202042013	19	7	2	0	1	0	0	0	1
15202042901	8	0	0	0	7	0	0	0	1

P12A_LLEGADA Año de llegada al país

tabla_P12A_LLEGADA <- table(x$clave, x$P12A_LLEGADA, useNA = "no")
#write_xlsx(tabla_P12A_LLEGADA, "tabla_P12A_LLEGADA.xlsx")

a_12a <- head(tabla_P12A_LLEGADA,50)

kbl(a_12a) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")

	1950	1952	1953	1954	1955	1956	1957	1958	1959	1960	1961	1962	1963	1964	1965	1966	1967	1968	1969	1970	1971	1972	1973	1974	1975	1976	1977	1978	1979	1980	1981	1982	1983	1985	1986	1988	1989	1990	1991	1992	1993	1994	1995	1996	1997	1998	1999	2000	2001	2002	2003	2004	2005	2006	2007	2008	2009	2010	2011	2012	2013	2014	2015	2016	2017	9998	9999
15101011001	2	1	0	1	0	0	1	2	1	0	0	1	0	0	0	0	2	1	0	0	1	1	0	2	0	0	0	0	1	0	1	1	0	0	0	0	1	4	5	0	0	1	1	0	6	2	2	5	1	3	0	1	5	4	7	5	8	17	13	18	11	12	24	8	73	1180	109
15101011002	1	0	0	0	1	3	0	0	1	2	0	0	1	0	0	0	0	0	0	0	0	1	1	1	0	0	0	0	0	0	1	1	1	0	0	1	2	2	1	2	0	0	1	0	0	1	0	8	0	0	3	3	0	0	0	1	0	1	2	3	2	4	4	11	10	840	84
15101021001	0	0	0	0	1	2	1	1	2	0	0	0	0	0	0	1	0	0	1	3	0	0	1	0	1	0	0	1	0	0	1	0	1	0	0	0	0	4	2	1	2	1	1	0	0	2	1	5	2	1	9	2	6	6	7	3	5	6	5	20	12	18	28	31	34	2409	110
15102012002	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	2	0	0	0	0	0	0	0	0	0	3	20	0
15102012003	1	0	0	0	0	0	0	0	0	0	0	0	0	1	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	1	1	0	0	0	1	4	2	2	1	0	0	3	1	4	2	1	9	0	11	499	19
15102022007	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	39	0
15102032005	1	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	1	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	105	2
15102032008	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	14	0
15102032901	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	30	0
15102042001	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	2	1	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	2	3	0	2	1	8	10	134	16
15102052004	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	1	0	0	1	0	0	2	1	2	0	3	0	3	1	1	1	5	0	234	3
15102052006	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	1	0	0	0	0	1	0	0	0	0	0	27	0
15201011001	1	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	1	1	0	0	0	1	0	0	0	1	0	0	0	0	0	1	0	0	0	3	2	5	2	1	1	2	3	5	6	9	8	1	11	18	13	8	14	6	13	1511	67
15201012901	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	1	0	0	0	0	1	22	12
15201022002	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	47	2
15201032006	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	1	0	0	0	2	0	0	0	0	0	2	1	1	0	1	1	0	0	0	1	4	1	14	1
15201032007	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	50	0
15201032901	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	4	0	0	0	0	0	1	0	28	0
15201042009	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	12	2
15201042021	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	1	0	0	0	0	2	2	1	57	10
15201042901	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	1	7	11	1
15201052001	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	1	0	0	0	0	0	1	0	2	1	0	0	3	40	14
15201052003	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	1	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	46	4
15201052012	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	21	3
15201052013	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	11	5
15201052020	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	16	1
15201052901	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	6	1
15201062005	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	4	0
15201062010	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	36	4
15201062017	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	2	0
15201062901	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	4	1
15201072901	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	44	9
15201082004	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	7	0
15201991999	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	2	2	1	0	0	7	2	1	1	2	0	0	2	4	2	2	2	3	4	4	4	7	3	8	5	5	4	11	7	7	14	13	7	15	15	15	8	21	19	27	38	19	122
15202012006	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	3	0	0	0	0	0	0	0	3	0	0	48	2
15202012008	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	2	1	0	0	0	0	0	0	0	0	0	0	0	0	8	1
15202012012	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	11	4
15202012015	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	1	0	0	0	0	0	0	0	1	0	5	1	1	0	3	0	4	1	141	10
15202022004	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	41	0
15202022005	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	14	0
15202022009	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	2	0	4	0	0	1	0	0	0	0	54	4
15202022011	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	2	0	0	0	0	0	73	10
15202022901	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	19	0
15202032001	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	1	0	0	0	0	0	0	0	19	1
15202032002	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	2	2	0	21	1
15202032010	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	3	0	0	0	0	12	0
15202032014	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	68	1
15202032901	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	16	0
15202042013	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	1	0	0	0	0	0	26	1
15202042901	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	6	8	1

P12A_TRAMO Período de llegada al País

tabla_P12A_TRAMO <- table(x$clave, x$P12A_TRAMO, useNA = "no")

colnames(tabla_P12A_TRAMO) <- c("Entre 2010 y 2017","Entre 2000 y 2009","Entre 1990 y 1999","Antes de 1990","No aplica", "Missing")

#write_xlsx(tabla_P12A_TRAMO, "tabla_P12A_TRAMO.xlsx")

a_p12at <- head(tabla_P12A_TRAMO,50)

kbl(a_p12at) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")

	Entre 2010 y 2017	Entre 2000 y 2009	Entre 1990 y 1999	Antes de 1990	No aplica	Missing
15101011001	202	43	24	32	1180	64
15101011002	51	17	9	18	840	66
15101021001	168	55	14	27	2409	77
15102012002	3	2	0	0	20	0
15102012003	38	10	4	4	499	10
15102022007	0	0	0	0	39	0
15102032005	0	1	1	4	105	1
15102032008	0	0	0	0	14	0
15102032901	0	0	0	0	30	0
15102042001	26	0	3	5	134	13
15102052004	15	8	1	0	234	1
15102052006	1	2	0	0	27	0
15201011001	95	52	8	10	1511	40
15201012901	4	0	0	0	22	11
15201022002	1	1	1	1	47	1
15201032006	8	6	2	1	14	0
15201032007	0	1	0	1	50	0
15201032901	5	1	0	1	28	0
15201042009	1	0	1	0	12	1
15201042021	6	1	1	1	57	9
15201042901	9	0	1	0	11	1
15201052001	7	4	0	0	40	12
15201052003	1	0	2	1	46	3
15201052012	1	1	0	2	21	0
15201052013	0	1	0	0	11	5
15201052020	0	0	0	2	16	0
15201052901	0	0	0	0	6	1
15201062005	0	0	0	0	4	0
15201062010	0	0	3	1	36	0
15201062017	0	0	0	0	2	0
15201062901	0	0	0	0	4	1
15201072901	2	4	1	1	44	1
15201082004	0	0	0	0	7	0
15201991999	201	104	50	32	19	30
15202012006	4	4	0	0	48	0
15202012008	0	3	0	0	8	1
15202012012	1	1	1	1	11	4
15202012015	15	3	1	0	141	9
15202022004	0	0	1	0	41	0
15202022005	0	0	0	1	14	0
15202022009	5	2	2	2	54	3
15202022011	3	6	1	1	73	3
15202022901	0	1	0	0	19	0
15202032001	1	1	0	0	19	1
15202032002	5	0	0	0	21	1
15202032010	3	0	0	0	12	0
15202032014	0	0	0	1	68	0
15202032901	0	0	0	0	16	0
15202042013	2	0	0	1	26	1
15202042901	6	0	0	1	8	1

Educacion

P13: ¿Asiste actualmente a la educación formal?

tabla_P13 <- table(x$clave, x$P13, useNA = "no")

colnames(tabla_P13) <- c("Sí","No asiste actualmente","Nunca asistió","Missing")


#write_xlsx(tabla_P10PAIS, "tabla_P10PAIS.xlsx")

a_013 <- head(tabla_P13,50)

kbl(a_013) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")

	Sí	No asiste actualmente	Nunca asistió	Missing
15101011001	317	1158	33	37
15101011002	198	707	21	75
15101021001	656	1954	78	62
15102012002	4	10	8	3
15102012003	107	424	22	12
15102022007	11	24	4	0
15102032005	24	71	12	5
15102032008	1	12	1	0
15102032901	3	26	1	0
15102042001	32	134	14	1
15102052004	54	191	10	4
15102052006	2	28	0	0
15201011001	257	1377	50	32
15201012901	4	25	8	0
15201022002	5	46	1	0
15201032006	1	23	7	0
15201032007	10	42	0	0
15201032901	9	22	3	1
15201042009	3	12	0	0
15201042021	11	53	9	2
15201042901	0	13	9	0
15201052001	8	44	3	8
15201052003	4	40	7	2
15201052012	4	19	2	0
15201052013	6	5	1	5
15201052020	0	15	3	0
15201052901	0	5	2	0
15201062005	0	4	0	0
15201062010	3	29	8	0
15201062017	0	2	0	0
15201062901	0	4	1	0
15201072901	16	32	3	2
15201082004	0	7	0	0
15201991999	22	406	5	3
15202012006	17	30	9	0
15202012008	1	9	1	1
15202012012	3	7	6	3
15202012015	31	116	11	11
15202022004	15	20	7	0
15202022005	2	9	3	1
15202022009	11	40	13	4
15202022011	8	72	7	0
15202022901	1	10	9	0
15202032001	2	10	9	1
15202032002	6	16	5	0
15202032010	3	9	3	0
15202032014	5	59	1	4
15202032901	0	9	7	0
15202042013	4	19	6	1
15202042901	0	10	5	1

P14 Curso o año más alto aprobado

tabla_P14 <- table(x$clave, x$P14, useNA = "no")

colnames(tabla_P14) <- c( "0","1","2","3","4","5","6","7","8","No aplica","Missing")
#write_xlsx(tabla_P10PAIS, "tabla_P10PAIS.xlsx")

a_014 <- head(tabla_P14,50)

kbl(a_014) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")

	0	1	2	3	4	5	6	7	8	No aplica	Missing
15101011001	58	87	209	173	509	183	88	25	98	33	82
15101011002	38	58	128	96	331	130	72	20	46	21	61
15101021001	128	143	445	239	1044	266	151	47	131	78	78
15102012002	1	1	2	0	2	4	3	0	2	8	2
15102012003	28	32	62	60	185	64	44	16	30	22	22
15102022007	0	4	3	7	15	0	2	0	4	4	0
15102032005	4	5	13	18	31	11	9	1	8	12	0
15102032008	0	0	2	1	5	0	0	0	0	1	5
15102032901	0	4	2	4	10	3	2	1	3	1	0
15102042001	13	12	21	15	49	15	17	4	20	14	1
15102052004	11	20	32	35	73	24	14	7	28	10	5
15102052006	0	4	2	2	16	1	3	1	1	0	0
15201011001	60	98	416	126	636	78	47	38	134	50	33
15201012901	1	3	2	2	11	5	0	0	4	8	1
15201022002	0	2	14	6	15	3	6	0	5	1	0
15201032006	0	7	1	2	11	1	1	0	1	7	0
15201032007	0	0	4	13	32	0	1	1	1	0	0
15201032901	0	3	4	3	10	3	6	1	2	3	0
15201042009	0	1	0	1	5	2	1	0	5	0	0
15201042021	1	1	9	8	20	13	5	1	3	9	5
15201042901	0	2	3	1	2	0	2	1	1	9	1
15201052001	3	9	3	4	12	7	6	2	4	3	10
15201052003	0	1	5	4	20	2	6	2	4	7	2
15201052012	0	2	3	4	7	0	5	1	0	2	1
15201052013	0	1	1	0	5	1	1	0	2	1	5
15201052020	0	2	2	3	3	1	1	0	3	3	0
15201052901	0	2	0	0	1	0	1	0	0	2	1
15201062005	0	0	0	0	4	0	0	0	0	0	0
15201062010	0	2	6	4	7	3	9	0	1	8	0
15201062017	0	0	0	1	1	0	0	0	0	0	0
15201062901	0	1	2	0	1	0	0	0	0	1	0
15201072901	6	3	8	5	12	3	3	1	5	3	4
15201082004	0	3	0	0	3	0	0	0	1	0	0
15201991999	1	32	50	67	163	61	28	2	20	5	7
15202012006	6	5	9	2	6	3	6	3	7	9	0
15202012008	0	0	2	3	3	1	0	0	1	1	1
15202012012	1	0	0	0	3	0	0	2	4	6	3
15202012015	9	10	17	10	56	24	12	1	13	11	6
15202022004	5	4	5	3	3	3	3	2	7	7	0
15202022005	0	3	0	1	4	0	0	1	2	3	1
15202022009	2	2	12	7	17	1	4	1	6	13	3
15202022011	2	5	32	6	25	4	0	2	1	7	3
15202022901	0	0	3	1	1	0	4	0	2	9	0
15202032001	1	0	5	1	1	1	2	1	0	9	1
15202032002	4	1	3	1	4	5	2	0	2	5	0
15202032010	1	2	0	2	2	1	1	1	2	3	0
15202032014	0	1	44	0	22	0	0	1	0	1	0
15202032901	0	1	3	3	0	0	0	0	2	7	0
15202042013	2	1	8	4	3	0	0	0	4	6	2
15202042901	0	1	1	1	2	2	0	0	3	5	1

P15 Nivel del curso más alto aprobado

tabla_P15 <- table(x$clave, x$P15, useNA = "no")

colnames(tabla_P15) <- c( 

"Sala cuna o jardín infantil","Prekínder","Kínder","Especial o diferencial","Educación básica","Primaria o preparatorio (sistema antiguo)","Científico-humanista","Técnica profesional","Humanidades (sistema antiguo)","Técnica comercial, industrial/normalista (sistema
antiguo)","Técnico superior (1-3 años)","Profesional (4 o más años)","Magíster","Doctorado", "No aplica" , "Missing")


#write_xlsx(tabla_P15, "tabla_P15.xlsx")

a_015 <- head(tabla_P15,50)

kbl(a_015) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")

	Sala cuna o jardín infantil	Prekínder	Kínder	Especial o diferencial	Educación básica	Primaria o preparatorio (sistema antiguo)	Científico-humanista	Técnica profesional	Humanidades (sistema antiguo)	Técnica comercial, industrial/normalista (sistema antiguo)	Técnico superior (1-3 años)	Profesional (4 o más años)	Magíster	Doctorado	No aplica	Missing
15101011001	23	13	21	4	248	47	354	200	60	33	149	298	16	4	33	42
15101011002	16	10	12	1	123	24	254	126	44	20	106	205	7	2	21	30
15101021001	57	24	47	6	378	49	823	383	60	35	221	499	36	7	78	47
15102012002	1	0	0	0	12	0	1	0	0	1	0	2	0	0	8	0
15102012003	15	4	9	1	142	27	100	92	13	17	29	77	6	1	22	10
15102022007	0	0	0	0	18	0	7	6	0	0	0	4	0	0	4	0
15102032005	0	2	2	0	30	3	19	18	0	0	11	15	0	0	12	0
15102032008	0	0	0	1	5	1	2	4	0	0	0	0	0	0	1	0
15102032901	0	0	0	0	8	1	11	2	3	2	1	1	0	0	1	0
15102042001	6	2	4	2	62	6	37	23	2	0	9	12	1	0	14	1
15102052004	3	2	6	0	72	7	53	40	2	1	20	39	1	0	10	3
15102052006	0	0	0	0	1	1	9	5	0	1	5	8	0	0	0	0
15201011001	38	7	15	1	312	10	469	353	4	2	238	171	17	1	50	28
15201012901	1	0	0	0	9	0	5	1	0	0	2	6	1	3	8	1
15201022002	0	0	0	0	27	0	5	6	0	0	11	2	0	0	1	0
15201032006	0	0	0	0	4	0	7	7	0	0	5	1	0	0	7	0
15201032007	0	0	0	0	0	0	10	15	0	0	13	13	1	0	0	0
15201032901	0	0	0	0	20	0	4	6	1	0	0	1	0	0	3	0
15201042009	0	0	0	0	9	0	4	2	0	0	0	0	0	0	0	0
15201042021	1	0	0	0	22	3	9	15	0	1	3	8	0	0	9	4
15201042901	0	0	0	0	5	1	4	1	1	0	0	0	0	0	9	1
15201052001	3	0	0	0	25	1	11	6	0	0	1	3	0	0	3	10
15201052003	0	0	0	0	15	3	10	7	0	2	2	5	0	0	7	2
15201052012	0	0	0	0	10	0	7	4	0	0	0	1	0	0	2	1
15201052013	0	0	0	0	8	0	2	0	0	0	0	1	0	0	1	5
15201052020	0	0	0	0	9	1	2	2	0	0	0	1	0	0	3	0
15201052901	0	0	0	0	4	0	0	0	0	0	0	0	0	0	2	1
15201062005	0	0	0	0	0	0	1	2	0	0	0	1	0	0	0	0
15201062010	0	0	0	0	8	16	3	4	0	0	0	1	0	0	8	0
15201062017	0	0	0	0	0	0	2	0	0	0	0	0	0	0	0	0
15201062901	0	0	0	0	3	0	1	0	0	0	0	0	0	0	1	0
15201072901	2	2	2	0	25	0	6	6	0	0	3	2	1	0	3	1
15201082004	0	0	0	0	1	0	3	0	0	0	3	0	0	0	0	0
15201991999	0	1	0	0	116	1	170	67	2	0	21	48	1	0	5	4
15202012006	3	0	3	0	33	1	4	3	0	0	0	0	0	0	9	0
15202012008	0	0	0	0	9	0	1	0	0	0	0	0	0	0	1	1
15202012012	0	0	1	0	8	0	1	0	0	0	0	0	0	0	6	3
15202012015	6	0	3	0	46	2	27	24	1	0	13	29	3	0	11	4
15202022004	2	0	3	0	24	0	2	3	0	0	0	0	1	0	7	0
15202022005	0	0	0	1	6	0	1	2	0	0	0	1	0	0	3	1
15202022009	2	0	0	0	31	0	12	6	0	0	0	1	0	0	13	3
15202022011	1	0	1	0	13	0	15	21	0	0	24	5	0	0	7	0
15202022901	0	0	0	0	9	0	1	1	0	0	0	0	0	0	9	0
15202032001	0	0	1	0	4	0	0	1	0	0	5	1	0	0	9	1
15202032002	3	1	0	0	11	0	3	1	0	0	1	2	0	0	5	0
15202032010	0	0	1	0	8	0	1	0	1	0	0	1	0	0	3	0
15202032014	0	0	0	0	0	0	18	10	0	0	37	3	0	0	1	0
15202032901	0	0	0	0	8	1	0	0	0	0	0	0	0	0	7	0
15202042013	0	0	2	0	10	0	2	2	0	0	7	0	0	0	6	1
15202042901	0	0	0	0	8	1	1	0	0	0	0	0	0	0	5	1

P15A Completó el nivel especificado

tabla_P15A <- table(x$clave, x$P15A, useNA = "no")

colnames(tabla_P15A) <- c( 
"Sí","No","No aplica","Missing")
#write_xlsx(tabla_P15A, "tabla_P15A.xlsx")

a_015 <- head(tabla_P15A,50)

kbl(a_015) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")

	Sí	No	No aplica	Missing
15101011001	916	536	33	60
15101011002	615	319	21	46
15101021001	1720	879	78	73
15102012002	4	13	8	0
15102012003	284	242	22	17
15102022007	15	20	4	0
15102032005	57	43	12	0
15102032008	6	7	1	0
15102032901	16	13	1	0
15102042001	92	72	14	3
15102052004	139	105	10	5
15102052006	22	8	0	0
15201011001	1034	570	50	62
15201012901	21	7	8	1
15201022002	27	24	1	0
15201032006	18	6	7	0
15201032007	46	6	0	0
15201032901	11	21	3	0
15201042009	10	5	0	0
15201042021	29	31	9	6
15201042901	4	8	9	1
15201052001	17	31	3	12
15201052003	27	16	7	3
15201052012	8	14	2	1
15201052013	5	6	1	5
15201052020	6	9	3	0
15201052901	0	4	2	1
15201062005	4	0	0	0
15201062010	11	21	8	0
15201062017	1	1	0	0
15201062901	0	4	1	0
15201072901	25	24	3	1
15201082004	7	0	0	0
15201991999	210	216	5	5
15202012006	14	33	9	0
15202012008	2	8	1	1
15202012012	6	4	6	3
15202012015	101	51	11	6
15202022004	13	22	7	0
15202022005	4	7	3	1
15202022009	17	35	13	3
15202022011	52	27	7	1
15202022901	3	8	9	0
15202032001	7	5	9	1
15202032002	10	12	5	0
15202032010	5	7	3	0
15202032014	59	8	1	1
15202032901	2	7	7	0
15202042013	8	7	6	9
15202042901	3	7	5	1

Etnia

P16 Se considera perteneciente a un pueblo indígena u originario

tabla_P16 <- table(x$clave, x$P16, useNA = "no")

colnames(tabla_P16) <- c( 
"Sí","No","Missing")


#write_xlsx(tabla_P16, "tabla_P16.xlsx")

a_P16 <- head(tabla_P16,50)

kbl(a_P16) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")

	Sí	No	Missing
15101011001	372	1137	36
15101011002	171	768	62
15101021001	532	2143	75
15102012002	23	2	0
15102012003	465	95	5
15102022007	29	10	0
15102032005	96	16	0
15102032008	12	2	0
15102032901	28	2	0
15102042001	137	43	1
15102052004	85	170	4
15102052006	13	17	0
15201011001	802	881	33
15201012901	20	17	0
15201022002	35	17	0
15201032006	26	5	0
15201032007	13	39	0
15201032901	35	0	0
15201042009	15	0	0
15201042021	66	7	2
15201042901	18	3	1
15201052001	53	0	10
15201052003	31	20	2
15201052012	21	4	0
15201052013	11	1	5
15201052020	17	1	0
15201052901	6	0	1
15201062005	1	3	0
15201062010	40	0	0
15201062017	1	1	0
15201062901	5	0	0
15201072901	41	11	1
15201082004	1	6	0
15201991999	346	87	3
15202012006	56	0	0
15202012008	11	0	1
15202012012	17	0	2
15202012015	131	34	4
15202022004	42	0	0
15202022005	15	0	0
15202022009	62	2	4
15202022011	38	49	0
15202022901	20	0	0
15202032001	16	5	1
15202032002	27	0	0
15202032010	15	0	0
15202032014	6	63	0
15202032901	16	0	0
15202042013	22	8	0
15202042901	13	2	1

P16A Pueblo indígena u originario listado

tabla_P16A <- table(x$clave, x$P16A, useNA = "no")

colnames(tabla_P16A) <- c( 
"Mapuche","Aymara","Rapa Nui","Lican Antai","Quechua","Colla","Diaguita","Kawésqar","Yagán o Yamana","Otro")

#write_xlsx(tabla_P16A, "tabla_P16A.xlsx")

a_P16A <- head(tabla_P16A,50)

kbl(a_P16A) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")

	Mapuche	Aymara	Rapa Nui	Lican Antai	Quechua	Colla	Diaguita	Kawésqar	Yagán o Yamana	Otro
15101011001	49	239	1	3	29	1	6	44	1137	36
15101011002	27	102	1	2	8	0	5	26	768	62
15101021001	170	261	0	9	28	0	14	50	2143	75
15102012002	0	23	0	0	0	0	0	0	2	0
15102012003	11	419	0	3	11	0	4	17	95	5
15102022007	0	29	0	0	0	0	0	0	10	0
15102032005	0	95	0	0	1	0	0	0	16	0
15102032008	0	12	0	0	0	0	0	0	2	0
15102032901	0	24	0	0	2	0	1	1	2	0
15102042001	6	128	0	0	3	0	0	0	43	1
15102052004	16	48	0	0	4	0	3	14	170	4
15102052006	1	12	0	0	0	0	0	0	17	0
15201011001	113	668	0	1	12	1	3	4	881	33
15201012901	0	20	0	0	0	0	0	0	17	0
15201022002	3	32	0	0	0	0	0	0	17	0
15201032006	1	25	0	0	0	0	0	0	5	0
15201032007	0	13	0	0	0	0	0	0	39	0
15201032901	0	35	0	0	0	0	0	0	0	0
15201042009	0	15	0	0	0	0	0	0	0	0
15201042021	0	63	0	0	3	0	0	0	7	2
15201042901	0	16	0	0	2	0	0	0	3	1
15201052001	0	48	0	0	4	0	0	1	0	10
15201052003	0	30	0	0	0	0	0	1	20	2
15201052012	0	21	0	0	0	0	0	0	4	0
15201052013	0	11	0	0	0	0	0	0	1	5
15201052020	0	15	0	0	1	0	0	1	1	0
15201052901	0	6	0	0	0	0	0	0	0	1
15201062005	0	1	0	0	0	0	0	0	3	0
15201062010	0	40	0	0	0	0	0	0	0	0
15201062017	0	1	0	0	0	0	0	0	1	0
15201062901	0	5	0	0	0	0	0	0	0	0
15201072901	0	33	0	0	0	0	0	8	11	1
15201082004	0	1	0	0	0	0	0	0	6	0
15201991999	3	226	0	0	112	3	0	2	87	3
15202012006	0	56	0	0	0	0	0	0	0	0
15202012008	0	11	0	0	0	0	0	0	0	1
15202012012	0	17	0	0	0	0	0	0	0	2
15202012015	1	128	0	0	0	0	0	2	34	4
15202022004	0	41	0	0	0	0	0	1	0	0
15202022005	0	15	0	0	0	0	0	0	0	0
15202022009	0	62	0	0	0	0	0	0	2	4
15202022011	6	31	0	0	0	0	0	1	49	0
15202022901	0	20	0	0	0	0	0	0	0	0
15202032001	1	15	0	0	0	0	0	0	5	1
15202032002	0	27	0	0	0	0	0	0	0	0
15202032010	0	15	0	0	0	0	0	0	0	0
15202032014	6	0	0	0	0	0	0	0	63	0
15202032901	0	16	0	0	0	0	0	0	0	0
15202042013	0	22	0	0	0	0	0	0	8	0
15202042901	0	13	0	0	0	0	0	0	2	1

P16A_OTRO Pueblo indígena u originario (Otro)

Atencion: hay que correr este pedazo de codigo una vez se cargue la tabla original.

tabla_P16A_OTRO <- table(x$clave, x$P16A_OTRO, useNA = "no")

# colnames(tabla_P16A) <- c( 
# "Mapuche","Aymara","Rapa Nui","Lican Antai","Quechua","Colla","Diaguita","Kawésqar","Yagán o Yamana","Otro","No aplica","Missing")


#write_xlsx(tabla_P16A_OTRO, "tabla_P16A_OTRO.xlsx")

a_P16A_OTRO <- head(tabla_P16A_OTRO,50)

kbl(a_P16A_OTRO) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")

	5	23	33	34	35	97	98	99
15101011001	0	0	5	1	21	17	1465	36
15101011002	0	0	1	0	17	8	913	62
15101021001	2	1	4	0	35	8	2625	75
15102012002	0	0	0	0	0	0	25	0
15102012003	0	0	1	0	9	7	543	5
15102022007	0	0	0	0	0	0	39	0
15102032005	0	0	0	0	0	0	112	0
15102032008	0	0	0	0	0	0	14	0
15102032901	0	0	0	0	0	1	29	0
15102042001	0	0	0	0	0	0	180	1
15102052004	0	0	1	0	6	7	241	4
15102052006	0	0	0	0	0	0	30	0
15201011001	0	0	0	0	3	1	1679	33
15201012901	0	0	0	0	0	0	37	0
15201022002	0	0	0	0	0	0	52	0
15201032006	0	0	0	0	0	0	31	0
15201032007	0	0	0	0	0	0	52	0
15201032901	0	0	0	0	0	0	35	0
15201042009	0	0	0	0	0	0	15	0
15201042021	0	0	0	0	0	0	73	2
15201042901	0	0	0	0	0	0	21	1
15201052001	0	0	0	0	0	1	52	10
15201052003	0	0	0	0	0	1	50	2
15201052012	0	0	0	0	0	0	25	0
15201052013	0	0	0	0	0	0	12	5
15201052020	0	0	0	0	0	1	17	0
15201052901	0	0	0	0	0	0	6	1
15201062005	0	0	0	0	0	0	4	0
15201062010	0	0	0	0	0	0	40	0
15201062017	0	0	0	0	0	0	2	0
15201062901	0	0	0	0	0	0	5	0
15201072901	0	0	0	0	0	8	44	1
15201082004	0	0	0	0	0	0	7	0
15201991999	0	0	1	0	0	1	431	3
15202012006	0	0	0	0	0	0	56	0
15202012008	0	0	0	0	0	0	11	1
15202012012	0	0	0	0	0	0	17	2
15202012015	0	0	0	0	2	0	163	4
15202022004	0	0	0	0	1	0	41	0
15202022005	0	0	0	0	0	0	15	0
15202022009	0	0	0	0	0	0	64	4
15202022011	0	0	0	0	1	0	86	0
15202022901	0	0	0	0	0	0	20	0
15202032001	0	0	0	0	0	0	21	1
15202032002	0	0	0	0	0	0	27	0
15202032010	0	0	0	0	0	0	15	0
15202032014	0	0	0	0	0	0	69	0
15202032901	0	0	0	0	0	0	16	0
15202042013	0	0	0	0	0	0	30	0
15202042901	0	0	0	0	0	0	15	1

Trabajo

P17 Trabajó durante la semana pasada

tabla_P17 <- table(x$clave, x$P17, useNA = "no")

colnames(tabla_P17) <- c( 
"Por un pago en dinero o especies","Sin pago para un familiar","Tenía empleo pero estuvo de vacaciones, con
licencia, en descanso laboral, etc.","Se encontraba buscando empleo","Estaba estudiando","Realizó quehaceres de su hogar","Es jubilado, pensionado o rentista","Otra situación","No aplica","Missing")



#write_xlsx(tabla_P17, "tabla_P17.xlsx")



kbl(tabla_P17) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")

	Por un pago en dinero o especies	Sin pago para un familiar	Tenía empleo pero estuvo de vacaciones, con licencia, en descanso laboral, etc.	Se encontraba buscando empleo	Estaba estudiando	Realizó quehaceres de su hogar	Es jubilado, pensionado o rentista	Otra situación	No aplica	Missing
15101011001	770	21	51	43	68	78	163	80	200	71
15101011002	466	10	30	36	64	57	140	45	116	37
15101021001	1590	10	46	84	136	165	223	62	388	46
15102012002	13	0	0	1	0	1	5	0	5	0
15102012003	268	31	21	12	21	41	53	24	81	13
15102022007	19	2	1	0	3	2	1	0	10	1
15102032005	58	7	1	3	8	6	9	2	18	0
15102032008	2	8	0	0	0	0	0	2	2	0
15102032901	11	2	1	0	0	3	7	0	3	3
15102042001	107	10	1	5	5	9	7	3	32	2
15102052004	174	2	7	2	8	9	9	5	43	0
15102052006	30	0	0	0	0	0	0	0	0	0
15201011001	1013	31	44	55	68	139	37	115	183	31
15201012901	13	0	0	0	0	1	9	5	9	0
15201022002	31	8	0	0	2	4	1	2	4	0
15201032006	25	2	0	0	0	2	0	0	2	0
15201032007	50	0	1	1	0	0	0	0	0	0
15201032901	15	9	0	0	0	2	0	1	8	0
15201042009	10	2	0	0	0	0	0	0	3	0
15201042021	27	15	1	6	0	4	10	1	5	6
15201042901	14	0	0	5	0	2	0	0	0	1
15201052001	23	14	0	2	0	2	2	2	9	9
15201052003	23	8	6	0	2	5	2	3	1	3
15201052012	17	2	0	2	1	2	0	0	1	0
15201052013	6	2	0	0	0	1	1	0	7	0
15201052020	9	4	0	0	0	2	1	2	0	0
15201052901	1	1	0	0	0	2	2	0	0	1
15201062005	4	0	0	0	0	0	0	0	0	0
15201062010	21	6	0	0	2	2	5	2	2	0
15201062017	2	0	0	0	0	0	0	0	0	0
15201062901	1	3	0	0	0	0	1	0	0	0
15201072901	28	4	1	1	0	4	0	0	11	4
15201082004	6	0	1	0	0	0	0	0	0	0
15201991999	376	10	11	7	5	13	3	3	5	3
15202012006	15	0	0	0	0	15	10	2	14	0
15202012008	2	0	0	0	0	7	1	0	1	1
15202012012	4	2	0	0	0	1	0	5	5	2
15202012015	95	7	3	11	3	10	4	8	24	4
15202022004	18	0	0	1	2	3	2	4	12	0
15202022005	8	1	0	0	1	2	0	2	1	0
15202022009	19	2	0	0	0	21	7	2	12	5
15202022011	70	1	1	2	1	2	1	0	7	2
15202022901	14	1	0	0	0	0	3	0	2	0
15202032001	9	0	0	0	0	0	6	0	6	1
15202032002	9	2	1	0	1	4	3	1	6	0
15202032010	1	1	0	1	0	5	2	0	5	0
15202032014	69	0	0	0	0	0	0	0	0	0
15202032901	5	2	0	0	0	2	7	0	0	0
15202042013	12	5	0	0	0	3	5	0	5	0
15202042901	2	2	1	1	1	3	2	0	3	1
15202992999	0	0	0	0	0	1	0	0	0	0

P18 Rama de actividad económica

Atencion: hay que correr este pedazo de codigo una vez se cargue la tabla original.

tabla_P18 <- table(x$clave, x$P18, useNA = "no")

# colnames(tabla_P18) <- c( "Agricultura, ganadería, silvicultura y pesca","Explotación de minas y canteras","Industrias manufactureras","Suministro de electricidad, gas, vapor y aire
# acondicionado","Suministro de agua; evacuación de aguas residuales, gestión de desechos y
# descontaminación","Construcción","Comercio al por mayor y al por menor; reparación
# de vehículos automotores y motocicletas","Transporte y almacenamiento","Actividades de alojamiento y de servicios de
# comidas","Información y comunicaciones","Actividades financieras y de seguros","Actividades inmobiliarias","Actividades profesionales, científicas y técnicas","Actividades de servicios administrativos y de apoyo","Administración pública y defensa; planes de
# seguridad social de afiliación obligatoria","Enseñanza","Actividades de atención de la salud humana y de
# asistencia social","Actividades artísticas, de entretenimiento y
# recreativas","Otras actividades de servicios","Actividades de los hogares como empleadores;
# actividades no diferenciadas de los hogares como productores de bienes y servicios para uso propio","Actividades de organizaciones y órganos
# extraterritoriales","Rama no declarada","No aplica","Missing")



#write_xlsx(tabla_P18, "tabla_P18.xlsx")

a_P18 <- head(tabla_P18,50)

kbl(a_P18) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")

	98	99	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q	R	S	T	Z
15101011001	632	71	12	6	35	1	2	79	151	55	76	5	4	2	23	24	73	51	29	17	25	12	160
15101011002	458	37	10	6	23	0	1	32	100	41	42	8	11	1	21	22	38	28	23	6	12	5	76
15101021001	1058	46	9	20	33	0	6	71	163	45	63	18	12	3	35	40	804	85	47	15	21	11	145
15102012002	12	0	10	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	1	0	0	0	1
15102012003	232	13	63	1	2	2	0	33	17	20	18	1	0	0	6	10	66	25	6	1	3	3	43
15102022007	16	1	6	3	3	0	0	0	5	0	0	1	1	0	0	0	0	1	0	0	0	1	1
15102032005	46	0	28	1	1	1	0	1	5	3	2	0	0	0	0	0	17	5	0	0	0	0	2
15102032008	4	0	8	1	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0
15102032901	13	3	5	0	0	0	0	2	0	2	1	0	0	0	0	0	0	0	0	0	0	2	2
15102042001	61	2	66	0	12	0	0	8	3	0	5	0	0	0	0	3	16	1	1	0	0	1	2
15102052004	76	0	34	1	5	0	0	49	20	1	14	4	0	0	1	6	23	3	3	0	1	0	18
15102052006	0	0	0	28	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1
15201011001	597	31	35	2	18	2	4	63	58	30	50	6	2	0	14	23	599	25	21	3	7	2	124
15201012901	24	0	4	0	0	0	0	1	1	1	3	0	0	0	0	2	1	0	0	0	0	0	0
15201022002	13	0	13	0	1	0	0	3	3	0	0	0	0	0	0	0	19	0	0	0	0	0	0
15201032006	4	0	6	0	0	0	0	0	0	9	4	0	0	0	0	0	7	0	0	0	0	0	1
15201032007	1	0	0	0	0	0	0	0	0	0	1	0	0	0	0	5	44	0	0	0	0	0	1
15201032901	11	0	12	0	1	0	0	1	4	1	3	0	0	0	0	1	0	1	0	0	0	0	0
15201042009	3	0	12	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15201042021	26	6	16	0	1	0	0	7	2	1	3	0	0	0	0	1	2	2	2	0	0	0	6
15201042901	7	1	5	0	0	0	0	0	0	0	7	0	0	0	0	1	1	0	0	0	0	0	0
15201052001	17	9	18	1	1	0	0	2	1	0	0	0	0	0	0	3	2	0	2	0	0	0	7
15201052003	13	3	5	0	0	7	0	1	0	0	1	0	0	0	0	0	13	0	0	0	1	1	8
15201052012	6	0	4	0	0	0	0	0	1	0	0	0	0	0	1	0	2	0	0	0	0	0	11
15201052013	9	0	5	0	0	0	0	0	0	0	1	0	0	0	0	0	0	1	0	0	1	0	0
15201052020	5	0	7	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	6
15201052901	4	1	2	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15201062005	0	0	0	0	1	0	0	1	1	0	0	0	0	0	0	0	0	0	1	0	0	0	0
15201062010	13	0	16	0	1	0	0	1	2	2	1	0	0	0	0	0	1	0	0	0	0	0	3
15201062017	0	0	0	1	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15201062901	1	0	3	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1
15201072901	16	4	15	0	0	0	0	1	1	1	2	0	0	0	0	2	0	6	2	0	0	0	3
15201082004	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	6	0	0	0	0	0	0
15201991999	36	3	9	6	9	0	0	6	39	288	4	0	4	0	5	1	5	1	1	0	1	2	16
15202012006	41	0	4	0	0	0	0	2	0	0	1	0	0	0	0	1	0	0	0	0	0	0	7
15202012008	9	1	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	1	0	0	0	0	0
15202012012	11	2	6	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15202012015	60	4	7	1	1	0	0	5	3	4	7	1	0	0	1	2	49	15	7	0	0	0	2
15202022004	24	0	3	0	0	0	1	1	0	0	2	0	0	0	0	4	0	2	0	0	0	0	5
15202022005	6	0	8	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0
15202022009	42	5	10	0	0	0	0	3	1	0	0	0	0	0	0	2	1	2	0	0	0	0	2
15202022011	13	2	18	0	0	0	0	0	0	2	0	0	0	0	0	1	51	0	0	0	0	0	0
15202022901	5	0	13	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	1
15202032001	12	1	2	0	0	0	0	0	0	1	0	0	0	0	0	0	5	1	0	0	0	0	0
15202032002	15	0	4	0	0	0	0	0	1	0	1	0	0	0	0	2	0	2	0	0	0	0	2
15202032010	13	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	2
15202032014	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	69	0	0	0	0	0	0
15202032901	9	0	4	0	1	0	0	1	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0
15202042013	13	0	9	0	0	0	0	0	0	0	0	0	0	0	0	1	7	0	0	0	0	0	0
15202042901	10	1	2	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	2

Demografía

P19 Total hijos/as nacidos vivos

tabla_P19 <- table(x$clave, x$P19, useNA = "no")



#write_xlsx(tabla_P15A, "tabla_P15A.xlsx")

a_P19 <- head(tabla_P19,50)

kbl(a_P19) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")

	0	1	2	3	4	5	6	7	8	9	10	11	12	13	14	98	99
15101011001	140	109	157	79	47	18	9	5	2	0	0	1	1	1	1	948	27
15101011002	103	90	104	81	28	13	3	2	1	3	0	1	0	0	0	550	22
15101021001	214	202	184	129	46	27	11	10	3	4	1	1	1	0	0	1867	50
15102012002	0	1	3	0	1	2	0	1	0	0	0	0	0	0	0	17	0
15102012003	43	37	45	39	22	17	8	4	4	3	1	1	0	0	0	334	7
15102022007	3	3	2	1	3	0	1	0	0	0	0	0	0	0	0	26	0
15102032005	12	5	8	7	2	7	3	1	0	0	0	0	0	0	0	67	0
15102032008	1	0	2	0	0	1	0	0	1	0	0	0	0	0	0	9	0
15102032901	1	2	2	0	1	2	2	0	1	1	0	0	0	0	0	18	0
15102042001	13	4	7	16	5	4	6	1	1	1	0	0	0	0	0	122	1
15102052004	15	14	10	10	7	6	0	0	0	0	0	2	0	1	0	194	0
15102052006	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	29	1
15201011001	79	54	61	38	20	16	6	9	3	2	4	0	0	0	0	1410	14
15201012901	7	0	2	3	1	0	0	0	0	0	0	0	0	0	0	24	0
15201022002	3	1	3	1	2	2	1	0	0	0	0	0	0	0	0	39	0
15201032006	1	1	2	3	1	0	0	0	1	0	0	0	0	0	0	22	0
15201032007	3	7	4	0	0	0	0	0	0	0	0	0	0	0	0	38	0
15201032901	4	0	3	0	1	1	3	0	1	0	0	0	0	0	0	22	0
15201042009	0	0	1	1	0	0	0	0	0	0	0	0	0	0	0	12	1
15201042021	2	1	4	1	7	2	1	0	2	0	2	0	0	0	0	42	11
15201042901	4	0	1	2	1	3	0	0	0	0	0	0	0	0	0	10	1
15201052001	1	0	3	3	4	5	3	2	0	0	0	0	0	0	0	39	3
15201052003	3	2	2	1	0	1	1	2	0	1	0	1	1	0	0	38	0
15201052012	2	1	1	3	2	1	1	1	0	0	0	0	0	0	0	13	0
15201052013	1	0	1	1	1	1	0	1	1	0	0	0	0	0	0	10	0
15201052020	1	0	1	4	0	0	0	0	1	0	0	0	0	0	0	11	0
15201052901	0	0	0	3	0	0	0	0	1	0	0	0	0	0	0	3	0
15201062005	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	4	0
15201062010	2	3	3	2	3	2	1	0	1	0	0	1	1	0	0	21	0
15201062017	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	2	0
15201062901	1	0	0	1	0	0	0	1	0	0	0	0	0	0	0	2	0
15201072901	2	3	5	2	6	1	2	1	1	0	0	0	0	0	0	30	0
15201082004	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	7	0
15201991999	14	8	6	14	10	2	1	1	0	0	0	0	1	0	0	374	5
15202012006	2	1	10	3	1	2	1	0	2	0	0	0	0	0	0	34	0
15202012008	0	0	0	3	0	0	1	1	0	0	0	0	0	0	0	7	0
15202012012	2	0	2	1	0	0	1	0	0	0	0	0	1	0	0	12	0
15202012015	9	12	15	7	5	2	2	1	1	0	0	0	1	0	0	109	5
15202022004	4	1	2	0	0	0	2	2	1	0	0	1	0	0	0	28	1
15202022005	2	2	1	0	0	0	0	2	0	0	0	0	0	0	0	8	0
15202022009	3	3	4	4	3	3	3	0	1	3	1	0	0	0	0	36	4
15202022011	1	1	1	4	2	0	1	1	0	0	1	0	0	0	0	74	1
15202022901	0	1	1	0	3	1	1	0	0	0	0	0	0	0	0	12	1
15202032001	0	1	0	0	1	0	0	0	0	0	0	0	0	0	0	18	2
15202032002	2	2	2	1	0	0	0	1	2	0	1	0	0	0	0	16	0
15202032010	0	1	1	2	0	2	2	0	0	0	0	0	0	0	0	7	0
15202032014	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	69	0
15202032901	2	0	0	0	0	4	0	2	0	0	0	0	0	0	0	8	0
15202042013	1	1	3	2	0	0	1	2	0	0	1	0	0	0	0	19	0
15202042901	0	1	3	0	0	0	2	0	0	0	0	0	0	0	0	9	1

P20 Total hijos/as actualmente vivos

tabla_P20 <- table(x$clave, x$P20, useNA = "no")
#write_xlsx(tabla_P20, "tabla_P20.xlsx")

a_P20 <- head(tabla_P20,50)

kbl(a_P20) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")

	0	1	2	3	4	5	6	7	8	9	10	11	98	99
15101011001	1	116	159	85	40	13	6	4	2	0	0	1	1088	30
15101011002	3	92	108	73	28	13	4	1	1	1	0	1	653	23
15101021001	6	206	187	121	48	27	11	7	3	3	0	0	2081	50
15102012002	0	1	3	0	1	2	0	1	0	0	0	0	17	0
15102012003	0	43	42	41	23	13	9	2	3	2	2	0	377	8
15102022007	0	3	2	2	2	0	1	0	0	0	0	0	29	0
15102032005	0	5	9	6	4	8	1	0	0	0	0	0	79	0
15102032008	0	0	2	0	0	1	0	1	0	0	0	0	10	0
15102032901	0	3	1	0	1	3	2	0	1	0	0	0	19	0
15102042001	0	4	9	17	6	3	4	1	0	1	0	0	135	1
15102052004	0	15	9	11	7	5	1	0	0	0	0	2	209	0
15102052006	0	0	0	0	0	0	0	0	0	0	0	0	29	1
15201011001	1	55	61	39	23	15	7	4	2	2	4	0	1489	14
15201012901	0	1	1	3	1	0	0	0	0	0	0	0	31	0
15201022002	0	1	3	1	2	2	1	0	0	0	0	0	42	0
15201032006	0	1	3	2	1	0	0	1	0	0	0	0	23	0
15201032007	0	7	4	0	0	0	0	0	0	0	0	0	41	0
15201032901	0	0	4	0	1	1	2	1	0	0	0	0	26	0
15201042009	0	0	1	1	0	0	0	0	0	0	0	0	12	1
15201042021	0	1	4	2	7	1	3	2	0	0	0	0	44	11
15201042901	0	0	1	4	1	1	0	0	0	0	0	0	14	1
15201052001	0	0	3	3	5	6	2	1	0	0	0	0	40	3
15201052003	0	2	2	1	0	3	3	0	1	0	0	0	41	0
15201052012	0	1	1	4	2	0	1	1	0	0	0	0	15	0
15201052013	0	0	2	1	0	1	1	0	1	0	0	0	11	0
15201052020	0	0	1	4	0	0	1	0	0	0	0	0	12	0
15201052901	0	0	0	3	0	0	0	1	0	0	0	0	3	0
15201062005	0	0	0	0	0	0	0	0	0	0	0	0	4	0
15201062010	1	3	2	3	2	4	0	0	1	0	1	0	23	0
15201062017	0	0	0	0	0	0	0	0	0	0	0	0	2	0
15201062901	0	0	1	0	0	0	1	0	0	0	0	0	3	0
15201072901	0	5	3	4	5	0	2	1	1	0	0	0	32	0
15201082004	0	0	0	0	0	0	0	0	0	0	0	0	7	0
15201991999	1	7	8	12	9	2	1	1	1	0	0	0	388	6
15202012006	0	3	8	3	2	1	2	0	1	0	0	0	36	0
15202012008	0	0	0	3	0	1	0	1	0	0	0	0	7	0
15202012012	0	0	2	1	0	0	1	0	0	0	1	0	14	0
15202012015	0	12	16	5	5	2	3	2	0	0	0	0	118	6
15202022004	0	1	2	0	0	1	1	2	1	0	0	1	32	1
15202022005	0	2	1	1	0	0	0	1	0	0	0	0	10	0
15202022009	0	3	4	5	3	3	4	0	1	2	0	0	39	4
15202022011	0	1	1	4	2	0	1	1	0	1	0	0	75	1
15202022901	0	1	1	0	3	1	1	0	0	0	0	0	12	1
15202032001	0	1	0	0	1	0	0	0	0	0	0	0	18	2
15202032002	0	2	2	1	0	0	1	2	1	0	0	0	18	0
15202032010	0	1	1	2	1	1	2	0	0	0	0	0	7	0
15202032014	0	0	0	0	0	0	0	0	0	0	0	0	69	0
15202032901	0	0	0	0	2	2	1	1	0	0	0	0	10	0
15202042013	0	1	3	2	1	0	2	1	0	0	0	0	20	0
15202042901	0	1	3	0	0	1	1	0	0	0	0	0	9	1

P21M Mes de nacimiento del último/a hijo/a

tabla_P21M <- table(x$clave, x$P21M, useNA = "no")
#write_xlsx(tabla_P15A, "tabla_P15A.xlsx")

a_P21M <- head(tabla_P21M,50)

kbl(a_P21M) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")

	1	2	3	4	5	6	7	8	9	10	11	12	98	99
15101011001	30	33	34	29	42	39	42	30	35	38	30	32	1088	43
15101011002	38	19	36	25	27	21	19	28	27	29	27	26	653	26
15101021001	48	55	52	50	54	57	47	48	50	53	45	45	2081	65
15102012002	0	1	1	2	0	2	0	1	0	1	0	0	17	0
15102012003	11	21	13	9	12	18	19	18	16	18	16	7	377	10
15102022007	1	2	0	1	0	0	3	0	0	1	0	2	29	0
15102032005	3	2	3	3	0	3	1	3	3	5	5	2	79	0
15102032008	0	0	0	1	0	0	0	2	0	1	0	0	10	0
15102032901	1	2	2	1	1	0	0	2	0	1	1	0	19	0
15102042001	3	1	4	5	4	4	3	3	2	3	4	8	135	2
15102052004	10	3	2	5	2	5	3	1	6	4	5	4	209	0
15102052006	0	0	0	0	0	0	0	0	0	0	0	0	29	1
15201011001	14	18	14	20	22	11	15	16	22	18	13	17	1489	27
15201012901	0	1	0	0	1	1	1	0	0	1	1	0	31	0
15201022002	1	1	0	0	1	3	0	0	3	0	0	0	42	1
15201032006	0	0	1	0	0	1	0	0	0	0	2	1	23	3
15201032007	0	1	2	1	1	0	1	0	1	3	1	0	41	0
15201032901	0	0	0	0	1	0	0	1	1	4	1	0	26	1
15201042009	0	0	0	0	1	1	0	0	0	0	0	0	12	1
15201042021	1	2	2	4	1	2	1	0	2	1	1	0	44	14
15201042901	1	0	0	1	1	0	1	0	0	0	1	2	14	1
15201052001	2	4	1	0	1	2	2	1	2	1	0	2	40	5
15201052003	0	0	1	0	2	0	1	1	0	1	2	0	41	4
15201052012	0	0	1	2	3	1	0	0	0	3	0	0	15	0
15201052013	0	0	2	2	0	0	1	0	0	1	0	0	11	0
15201052020	0	0	0	1	1	2	0	0	0	0	1	0	12	1
15201052901	1	0	0	0	0	0	0	0	0	0	0	0	3	3
15201062005	0	0	0	0	0	0	0	0	0	0	0	0	4	0
15201062010	2	0	0	4	2	1	2	1	2	0	2	1	23	0
15201062017	0	0	0	0	0	0	0	0	0	0	0	0	2	0
15201062901	0	0	0	0	1	0	0	0	0	0	0	0	3	1
15201072901	1	0	0	1	3	0	1	2	1	4	5	0	32	3
15201082004	0	0	0	0	0	0	0	0	0	0	0	0	7	0
15201991999	1	2	6	4	1	8	2	6	4	2	1	5	388	6
15202012006	0	1	3	3	0	0	1	0	3	1	3	2	36	3
15202012008	0	1	1	0	0	1	1	0	0	0	0	1	7	0
15202012012	0	1	0	0	0	1	1	0	0	0	0	0	14	2
15202012015	2	3	4	3	3	6	2	9	1	2	2	6	118	8
15202022004	0	1	2	0	1	1	0	0	0	2	0	1	32	2
15202022005	0	0	2	0	2	0	0	0	0	0	1	0	10	0
15202022009	1	1	1	2	1	2	0	3	1	2	1	0	39	14
15202022011	1	2	1	3	1	0	0	1	1	0	1	0	75	1
15202022901	0	1	0	2	1	2	0	0	0	0	1	0	12	1
15202032001	0	0	0	0	0	0	0	0	0	1	0	0	18	3
15202032002	0	0	1	1	1	0	0	2	0	0	1	1	18	2
15202032010	0	1	0	1	1	1	1	0	2	1	0	0	7	0
15202032014	0	0	0	0	0	0	0	0	0	0	0	0	69	0
15202032901	0	0	0	1	0	0	0	1	0	0	1	0	10	3
15202042013	0	0	1	1	2	2	1	2	1	0	0	0	20	0
15202042901	0	1	0	1	0	0	0	1	2	0	0	0	9	2

P21A Año de nacimiento del último/a hijo/a

tabla_P21A <- table(x$clave, x$P21A, useNA = "no")
#write_xlsx(tabla_P21A, "tabla_P21A.xlsx")

a_P21A <- head(tabla_P21A,50)

kbl(a_P21A) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")

	1945	1947	1950	1952	1953	1954	1955	1956	1957	1958	1959	1960	1961	1962	1963	1964	1965	1966	1967	1968	1969	1970	1971	1972	1973	1974	1975	1976	1977	1978	1979	1980	1981	1982	1983	1984	1985	1986	1987	1988	1989	1990	1991	1992	1993	1994	1995	1996	1997	1998	1999	2000	2001	2002	2003	2004	2005	2006	2007	2008	2009	2010	2011	2012	2013	2014	2015	2016	2017	9998	9999
15101011001	0	1	1	0	2	0	1	5	0	3	2	2	5	1	3	3	4	2	3	3	4	3	4	3	7	6	10	10	5	8	8	5	5	9	5	6	9	2	7	11	4	16	10	7	6	7	6	5	6	7	6	3	5	8	8	11	6	9	8	8	11	11	11	13	12	12	18	12	0	1088	43
15101011002	0	0	0	1	0	0	0	0	2	2	2	1	2	2	1	1	3	3	3	2	3	4	4	4	2	6	5	7	2	7	0	6	1	7	6	8	9	7	6	8	6	6	5	8	10	6	6	2	8	11	6	4	8	5	7	8	4	6	3	1	8	11	7	13	12	5	9	8	2	653	26
15101021001	1	0	0	0	0	1	2	2	2	0	3	4	1	12	6	8	2	7	7	8	7	5	6	1	12	5	7	2	7	7	5	9	5	9	11	6	7	4	7	9	6	8	16	7	9	8	7	13	11	12	13	12	9	10	14	17	6	12	12	18	17	18	28	16	17	18	34	33	6	2081	65
15102012002	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	1	0	0	1	0	0	0	0	0	0	0	1	0	0	0	0	0	1	0	0	0	1	1	0	0	17	0
15102012003	0	0	0	2	0	0	0	0	1	0	0	2	1	0	0	3	0	0	0	0	2	1	1	3	7	0	6	5	3	4	4	3	7	2	4	2	4	2	2	3	2	4	1	3	3	4	9	5	3	4	3	1	3	4	4	0	4	1	4	5	5	2	6	4	5	7	3	4	1	377	10
15102022007	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	1	1	1	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	1	0	0	0	1	0	0	1	0	0	0	0	0	1	1	0	29	0
15102032005	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	2	0	0	0	1	1	0	1	0	0	0	1	0	1	1	0	0	0	1	2	2	0	1	1	0	1	0	0	2	1	0	2	1	1	0	2	0	1	0	2	0	1	2	0	1	79	0
15102032008	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	1	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	10	0
15102032901	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	1	1	0	0	0	0	0	0	0	0	1	0	0	2	0	0	0	0	0	0	0	0	0	0	0	1	1	1	0	1	0	0	0	0	0	0	0	0	0	0	0	19	0
15102042001	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	1	2	1	1	0	1	0	0	1	0	0	0	1	2	1	1	1	1	1	1	1	1	1	1	1	3	1	1	0	2	0	0	0	0	1	0	1	0	2	1	1	0	2	1	3	1	2	135	2
15102052004	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	1	0	0	0	0	1	0	1	0	1	0	0	2	0	2	0	0	1	0	1	2	0	1	0	3	1	1	2	2	1	0	1	0	2	3	5	1	3	1	3	2	4	0	209	0
15102052006	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	29	1
15201011001	0	0	0	0	0	0	0	0	0	0	0	1	0	0	1	0	1	1	3	0	0	2	0	3	2	0	1	1	0	0	1	1	3	3	2	4	4	0	3	0	3	1	4	4	2	8	2	2	2	2	6	2	2	3	10	4	4	5	11	4	11	4	9	7	10	12	19	10	0	1489	27
15201012901	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	1	1	0	0	31	0
15201022002	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	1	0	0	0	0	0	1	0	0	1	0	0	0	0	0	0	0	1	1	1	0	0	0	0	1	0	0	0	0	1	0	0	0	0	42	1
15201032006	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	1	0	0	1	0	0	0	0	0	0	1	0	0	1	0	0	23	3
15201032007	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	2	0	1	1	0	1	0	0	0	1	0	1	0	1	0	2	0	0	0	41	0
15201032901	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	1	0	0	1	0	1	0	0	0	0	0	0	0	0	0	0	0	1	1	0	0	0	0	0	0	1	0	26	1
15201042009	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	12	1
15201042021	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	3	0	0	0	0	0	0	0	2	0	0	0	2	0	0	2	0	0	0	0	0	0	1	0	0	0	0	0	1	0	0	0	1	0	0	0	0	1	0	1	0	0	0	2	1	0	0	0	0	0	0	0	44	14
15201042901	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	1	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	2	1	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	14	1
15201052001	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	2	0	0	0	0	0	0	0	1	0	0	0	0	0	0	2	0	2	0	1	0	0	0	0	0	0	0	1	0	0	1	0	1	1	1	0	1	0	1	2	1	0	0	0	0	40	5
15201052003	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	1	0	1	0	1	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	41	4
15201052012	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	1	0	0	1	1	0	0	0	0	0	1	0	0	1	0	0	0	0	0	0	1	0	0	0	0	0	0	1	0	0	0	0	1	0	0	0	0	0	0	15	0
15201052013	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	1	1	0	0	0	0	1	1	0	0	0	0	0	0	0	0	11	0
15201052020	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	1	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	12	1
15201052901	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	3	3
15201062005	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	4	0
15201062010	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	1	1	0	1	0	0	0	3	0	1	3	0	1	0	0	2	1	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	1	0	0	0	23	0
15201062017	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	2	0
15201062901	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	3	1
15201072901	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	1	1	0	0	1	1	0	0	0	1	0	0	0	0	2	0	1	0	0	0	0	0	0	0	1	1	1	4	0	1	0	0	0	0	32	3
15201082004	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	7	0
15201991999	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	1	1	0	0	0	0	1	0	0	0	3	1	1	2	1	1	0	2	1	2	2	3	1	0	1	0	4	1	0	2	0	0	1	4	5	0	0	388	6
15202012006	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	1	0	1	0	0	0	0	1	1	0	0	0	0	0	0	0	0	0	1	0	0	1	1	0	1	0	0	0	1	0	1	0	0	0	2	0	1	0	0	1	1	1	0	0	36	3
15202012008	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	1	0	0	0	1	0	0	0	0	1	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	7	0
15202012012	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	1	0	14	2
15202012015	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	1	0	0	1	0	0	1	0	0	2	1	0	0	0	1	2	0	2	0	0	4	0	2	2	2	1	0	0	1	0	5	1	1	1	2	1	2	1	3	2	0	118	8
15202022004	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	1	1	0	0	0	0	1	0	0	0	0	0	0	1	1	0	0	1	0	1	0	32	2
15202022005	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	1	0	0	0	1	0	0	0	10	0
15202022009	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	2	0	0	0	0	1	1	1	0	0	0	2	0	0	0	0	0	1	1	0	0	0	0	0	2	1	1	2	0	39	14
15202022011	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	2	1	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	1	0	0	2	1	0	0	0	0	0	0	1	1	0	0	75	1
15202022901	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	1	0	0	0	0	0	1	0	0	0	1	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	12	1
15202032001	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	18	3
15202032002	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	1	0	0	0	0	0	1	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	2	0	18	2
15202032010	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	1	0	0	0	0	0	0	0	0	0	0	1	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	1	0	1	1	0	7	0
15202032014	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	69	0
15202032901	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	10	3
15202042013	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	1	0	0	0	0	0	1	0	0	0	0	1	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	1	1	1	0	1	0	0	0	20	0
15202042901	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	1	0	0	0	0	0	0	0	0	0	1	1	0	9	2

Migración

P10PAIS_GRUPO País de residencia habitual (grupo)

Atencion: hay que correr este pedazo de codigo una vez se cargue la tabla original.

tabla_P10PAIS_GRUPO <- table(x$clave, x$P10PAIS_GRUPO, useNA = "no")

# colnames(tabla_P17) <- c( 
# "África","Sudamérica","Oceanía","Antártida","Centroamérica","Norteamérica","Caribe","Argentina","Bolivia (Estado Plurinacional de)","Asia", "Europa","Colombia","Ecuador","Haití", "Perú", "Venezuela (República Bolivariana de)", "País no declarado", "No aplica","Missing")



#write_xlsx(tabla_P10PAIS_GRUPO, "tabla_P10PAIS_GRUPO.xlsx")

P10PAIS_GRUPO <- head(tabla_P10PAIS_GRUPO,50)

kbl(P10PAIS_GRUPO) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")

	9	21	29	32	68	150	170	604	997	998	999
15101011001	2	2	0	6	8	1	4	56	1	1448	17
15101011002	0	1	0	0	2	7	0	5	0	967	19
15101021001	0	0	0	0	1	3	0	5	0	2716	25
15102012002	0	0	0	0	0	0	0	0	0	25	0
15102012003	0	1	0	0	8	5	0	2	0	541	8
15102022007	0	0	0	0	0	0	0	0	0	39	0
15102032005	0	0	0	0	0	0	0	0	0	112	0
15102032008	0	0	0	0	0	0	0	0	0	14	0
15102032901	0	0	0	0	0	0	0	0	0	30	0
15102042001	0	0	0	0	2	0	0	2	0	176	1
15102052004	0	0	0	0	1	0	0	1	0	255	2
15102052006	0	0	0	0	0	0	0	0	0	30	0
15201011001	1	0	0	0	1	2	0	2	0	1697	13
15201012901	0	0	0	0	0	9	0	0	0	28	0
15201022002	0	0	0	0	0	0	0	0	0	52	0
15201032006	0	0	0	0	0	0	0	0	0	31	0
15201032007	0	0	0	0	0	0	0	0	0	52	0
15201032901	0	0	0	0	0	0	0	0	0	35	0
15201042009	0	0	0	0	0	0	0	0	0	15	0
15201042021	0	0	0	0	0	0	0	2	0	72	1
15201042901	0	0	0	0	1	0	0	6	0	14	1
15201052001	0	0	0	0	2	0	0	2	0	52	7
15201052003	0	0	0	0	0	0	0	1	0	50	2
15201052012	0	0	0	0	0	0	0	0	0	25	0
15201052013	0	0	0	0	0	0	0	0	0	12	5
15201052020	0	0	0	0	0	0	0	0	0	18	0
15201052901	0	0	0	0	0	0	0	0	0	6	1
15201062005	0	0	0	0	0	0	0	0	0	4	0
15201062010	0	0	0	0	0	0	0	0	0	40	0
15201062017	0	0	0	0	0	0	0	0	0	2	0
15201062901	0	0	0	0	0	0	0	0	0	5	0
15201072901	0	0	0	0	0	0	0	0	0	52	1
15201082004	0	0	0	0	0	0	0	0	0	7	0
15201991999	0	1	1	0	390	2	0	1	1	39	1
15202012006	0	0	0	0	1	0	0	0	0	55	0
15202012008	0	0	0	0	0	0	0	0	0	11	1
15202012012	0	0	0	0	0	0	0	0	0	17	2
15202012015	0	0	0	0	2	0	0	0	0	163	4
15202022004	0	0	0	0	0	0	0	0	0	42	0
15202022005	0	0	0	0	0	0	0	0	0	15	0
15202022009	0	0	0	0	0	0	0	0	0	65	3
15202022011	0	0	0	0	0	0	0	0	0	87	0
15202022901	0	0	0	0	0	0	0	0	0	18	2
15202032001	0	0	0	0	0	0	0	0	0	21	1
15202032002	0	0	0	0	0	0	0	0	0	27	0
15202032010	0	0	0	0	0	0	0	0	0	15	0
15202032014	0	0	0	0	0	0	0	0	0	69	0
15202032901	0	0	0	0	0	0	0	0	0	16	0
15202042013	0	0	0	0	0	0	0	0	0	30	0
15202042901	0	0	0	0	0	0	0	0	0	15	1

P11PAIS_GRUPO País de residencia hace 5 años (grupo)

Atencion: hay que correr este pedazo de codigo una vez se cargue la tabla original.

tabla_P11PAIS_GRUPO <- table(x$clave, x$P11PAIS_GRUPO, useNA = "no")

# colnames(tabla_P17) <- c( 
# "África","Sudamérica","Oceanía","Antártida","Centroamérica","Norteamérica","Caribe","Argentina","Bolivia (Estado Plurinacional de)","Asia", "Europa","Colombia","Ecuador","Haití", "Perú", "Venezuela (República Bolivariana de)", "País no declarado", "No aplica","Missing")

#write_xlsx(tabla_P11PAIS_GRUPO, "tabla_P11PAIS_GRUPO.xlsx")

a_P11PAIS_GRUPO <- head(tabla_P11PAIS_GRUPO,50)

kbl(a_P11PAIS_GRUPO) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")

	2	5	9	13	21	29	32	68	142	150	170	218	332	604	862	997	998	999
15101011001	0	0	2	3	2	3	7	51	2	8	14	3	0	98	2	2	1312	36
15101011002	0	0	0	0	2	0	1	15	0	6	12	0	0	18	0	0	900	47
15101021001	1	1	3	0	1	3	6	38	0	22	25	5	0	50	6	1	2528	60
15102012002	0	0	0	0	0	0	0	0	0	0	0	0	0	2	0	0	20	3
15102012003	0	0	0	0	1	0	0	16	1	5	0	0	0	14	0	0	513	15
15102022007	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	39	0
15102032005	0	1	0	0	0	0	0	1	0	0	0	0	0	0	0	0	107	3
15102032008	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	13	1
15102032901	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	30	0
15102042001	0	1	0	0	0	0	0	11	0	0	0	0	0	19	0	0	150	0
15102052004	0	0	0	0	0	0	0	3	0	0	0	0	0	9	0	0	246	1
15102052006	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	30	0
15201011001	0	0	1	1	0	0	0	43	0	4	0	0	1	17	0	0	1622	27
15201012901	0	0	0	0	0	0	0	0	0	9	0	0	0	1	0	0	27	0
15201022002	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	50	1
15201032006	0	0	0	0	0	0	0	7	0	0	0	0	0	0	0	0	24	0
15201032007	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	52	0
15201032901	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	30	4
15201042009	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	15	0
15201042021	0	0	0	0	0	0	0	0	0	0	0	0	0	11	0	0	56	8
15201042901	0	0	0	0	0	0	0	1	0	0	0	0	0	8	0	0	12	1
15201052001	0	0	0	0	0	0	0	6	0	0	0	0	0	2	0	0	48	7
15201052003	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	49	3
15201052012	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	24	0
15201052013	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	11	6
15201052020	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	18	0
15201052901	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	6	1
15201062005	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	4	0
15201062010	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	40	0
15201062017	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	2	0
15201062901	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	5	0
15201072901	0	0	0	0	0	0	0	4	0	0	0	0	0	0	0	0	48	1
15201082004	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	7	0
15201991999	0	0	0	0	1	0	0	388	0	3	0	0	0	3	0	0	40	1
15202012006	0	0	0	0	0	0	0	2	0	0	0	0	0	1	0	0	52	1
15202012008	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	11	1
15202012012	0	0	0	0	0	0	0	3	0	0	0	0	0	1	0	0	13	2
15202012015	0	0	0	0	0	0	0	12	0	0	0	0	0	0	0	0	152	5
15202022004	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	42	0
15202022005	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	15	0
15202022009	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	61	6
15202022011	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	87	0
15202022901	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	17	3
15202032001	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	21	1
15202032002	0	0	0	0	0	0	0	2	0	0	0	0	0	2	0	0	23	0
15202032010	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	15	0
15202032014	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	69	0
15202032901	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	16	0
15202042013	0	0	0	0	0	0	0	0	0	0	0	0	0	1	0	0	28	1
15202042901	0	0	0	0	0	0	0	3	0	0	0	0	0	0	0	0	11	2

P12PAIS_GRUPO País de nacimiento (grupo)

Atencion: hay que correr este pedazo de codigo una vez se cargue la tabla original.

tabla_P12PAIS_GRUPO <- table(x$clave, x$P12PAIS_GRUPO, useNA = "no")

# colnames(tabla_P17) <- c( 
# "África","Sudamérica","Oceanía","Antártida","Centroamérica","Norteamérica","Caribe","Argentina","Bolivia (Estado Plurinacional de)","Asia", "Europa","Colombia","Ecuador","Haití", "Perú", "Venezuela (República Bolivariana de)", "País no declarado", "No aplica","Missing")


#write_xlsx(tabla_P12PAIS_GRUPO, "tabla_P12PAIS_GRUPO.xlsx")

P12PAIS_GRUPO <- head(tabla_P12PAIS_GRUPO,50)

kbl(P12PAIS_GRUPO) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")

	5	9	13	21	29	32	68	142	150	170	218	604	862	997	998	999
15101011001	3	1	1	2	5	7	88	8	8	21	2	187	2	2	1180	28
15101011002	0	0	0	1	2	4	31	5	10	15	2	40	0	0	840	51
15101021001	6	1	0	2	2	15	78	1	16	36	12	108	3	0	2409	61
15102012002	0	0	0	0	0	0	2	0	0	0	0	3	0	0	20	0
15102012003	0	0	0	1	0	0	27	1	6	0	1	21	0	0	499	9
15102022007	0	0	0	0	0	0	0	0	0	0	0	0	0	0	39	0
15102032005	0	0	0	0	0	1	5	0	0	0	0	0	0	0	105	1
15102032008	0	0	0	0	0	0	0	0	0	0	0	0	0	0	14	0
15102032901	0	0	0	0	0	0	0	0	0	0	0	0	0	0	30	0
15102042001	0	0	0	0	0	1	26	0	0	0	0	20	0	0	134	0
15102052004	0	0	0	0	0	0	5	0	0	1	0	19	0	0	234	0
15102052006	0	0	0	0	0	0	1	0	0	0	0	2	0	0	27	0
15201011001	0	1	2	1	0	4	131	0	5	0	0	29	1	0	1511	31
15201012901	0	0	0	0	0	0	0	0	9	0	0	4	0	0	22	2
15201022002	0	0	0	0	0	0	4	0	0	0	0	0	0	0	47	1
15201032006	0	0	0	0	0	0	16	0	0	0	0	1	0	0	14	0
15201032007	0	0	0	0	0	0	1	0	1	0	0	0	0	0	50	0
15201032901	0	0	0	0	0	0	6	0	0	0	0	1	0	0	28	0
15201042009	0	0	0	0	0	0	1	0	0	0	0	1	0	0	12	1
15201042021	1	0	0	0	0	0	2	0	0	0	0	12	0	0	57	3
15201042901	0	0	0	0	0	1	1	0	0	0	0	8	0	0	11	1
15201052001	0	0	0	0	0	0	10	0	0	0	0	3	0	0	40	10
15201052003	0	0	0	0	0	0	3	0	0	0	0	1	0	0	46	3
15201052012	0	0	0	0	0	0	3	0	0	0	0	1	0	0	21	0
15201052013	0	0	0	0	0	0	1	0	0	0	0	0	0	0	11	5
15201052020	0	0	0	0	0	0	1	0	0	0	0	1	0	0	16	0
15201052901	0	0	0	0	0	0	0	0	0	0	0	0	0	0	6	1
15201062005	0	0	0	0	0	0	0	0	0	0	0	0	0	0	4	0
15201062010	0	0	0	0	0	0	4	0	0	0	0	0	0	0	36	0
15201062017	0	0	0	0	0	0	0	0	0	0	0	0	0	0	2	0
15201062901	0	0	0	0	0	0	1	0	0	0	0	0	0	0	4	0
15201072901	0	0	0	0	0	0	8	0	0	0	0	0	0	0	44	1
15201082004	0	0	0	0	0	0	0	0	0	0	0	0	0	0	7	0
15201991999	0	0	0	1	0	1	402	0	2	1	1	5	0	4	19	0
15202012006	0	0	0	0	0	0	5	0	0	0	0	3	0	0	48	0
15202012008	0	0	0	0	0	0	0	0	0	0	0	3	0	0	8	1
15202012012	0	0	0	0	0	0	1	0	0	0	0	5	0	0	11	2
15202012015	0	0	0	0	0	0	21	0	0	0	0	0	0	0	141	7
15202022004	0	0	0	0	0	0	1	0	0	0	0	0	0	0	41	0
15202022005	0	0	0	0	0	0	1	0	0	0	0	0	0	0	14	0
15202022009	0	0	0	0	0	0	10	0	0	0	0	1	0	0	54	3
15202022011	0	0	0	0	1	0	10	0	0	0	0	0	0	0	73	3
15202022901	0	0	0	0	0	0	1	0	0	0	0	0	0	0	19	0
15202032001	0	0	0	0	0	0	0	0	0	0	0	2	0	0	19	1
15202032002	0	0	0	0	0	0	3	0	0	0	0	2	0	0	21	1
15202032010	0	0	0	0	0	0	3	0	0	0	0	0	0	0	12	0
15202032014	0	0	0	0	0	1	0	0	0	0	0	0	0	0	68	0
15202032901	0	0	0	0	0	0	0	0	0	0	0	0	0	0	16	0
15202042013	0	0	0	0	0	0	1	0	0	0	0	2	0	0	26	1
15202042901	0	0	0	0	0	0	7	0	0	0	0	0	0	0	8	1

Escolaridad

ESCOLARIDAD Años de escolaridad

tabla_ESCOLARIDAD <- table(x$clave, x$ESCOLARIDAD, useNA = "no")

colnames(tabla_ESCOLARIDAD) <- c( 
"1","2","3","4","5","6","7","8","9","10", "11","12","13","14", "15", "16", "17", "18", "19", "20", "21","No aplica","Missing")

#write_xlsx(tabla_ESCOLARIDAD, "tabla_ESCOLARIDAD.xlsx")

a_ESCOLARIDAD <- head(tabla_ESCOLARIDAD,50)

kbl(a_ESCOLARIDAD) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")

	1	2	3	4	5	6	7	8	9	10	11	12	13	14	15	16	17	18	19	20	21	No aplica	Missing
15101011001	94	18	23	34	36	31	48	20	96	44	66	56	436	27	105	79	73	158	0	16	0	4	81
15101011002	60	15	7	8	12	15	34	17	44	35	53	31	296	14	71	53	38	128	0	6	1	2	61
15101021001	212	29	34	39	47	32	79	48	145	57	235	89	877	52	148	113	141	259	1	31	2	6	74
15102012002	9	1	0	0	1	3	3	0	3	0	1	0	0	0	0	0	1	1	0	0	0	0	2
15102012003	51	14	18	20	26	13	36	14	34	13	27	28	141	5	15	15	21	46	2	4	0	1	21
15102022007	4	3	2	3	4	0	2	0	4	1	1	4	7	0	0	0	4	0	0	0	0	0	0
15102032005	16	2	2	6	5	2	8	1	7	1	6	5	25	2	5	7	2	10	0	0	0	0	0
15102032008	2	0	1	0	0	0	0	0	0	0	0	1	5	0	0	0	0	0	0	0	0	0	5
15102032901	1	2	0	0	0	1	2	2	3	3	3	2	9	0	0	1	1	0	0	0	0	0	0
15102042001	28	4	7	5	6	5	17	5	20	5	7	7	42	3	6	2	2	8	0	1	0	0	1
15102052004	21	2	5	11	8	7	11	7	29	10	13	13	58	8	12	11	8	19	0	1	0	0	5
15102052006	0	0	0	0	0	0	1	0	1	1	2	0	12	3	1	2	3	4	0	0	0	0	0
15201011001	111	28	24	26	34	24	35	36	115	60	166	68	533	11	213	30	69	83	0	15	1	1	33
15201012901	9	2	0	1	1	1	0	0	4	1	0	0	5	0	1	1	2	4	0	1	0	3	1
15201022002	1	1	3	5	4	3	6	0	5	1	0	1	9	0	11	0	2	0	0	0	0	0	0
15201032006	7	2	0	0	0	0	1	0	1	0	1	2	11	5	0	0	0	1	0	0	0	0	0
15201032007	0	0	0	0	0	0	0	0	0	0	0	3	22	0	3	10	10	3	0	1	0	0	0
15201032901	3	2	3	2	2	2	6	2	2	0	1	1	8	0	0	0	0	1	0	0	0	0	0
15201042009	0	1	0	0	1	1	1	0	5	0	0	1	5	0	0	0	0	0	0	0	0	0	0
15201042021	10	0	3	4	6	4	4	1	4	1	4	1	18	0	1	3	2	4	0	0	0	0	5
15201042901	9	1	2	0	0	0	1	1	1	1	1	1	3	0	0	0	0	0	0	0	0	0	1
15201052001	6	5	1	3	3	3	6	2	3	3	2	1	11	1	0	0	0	3	0	0	0	0	10
15201052003	7	1	1	3	0	1	6	2	4	0	3	1	15	0	3	0	4	0	0	0	0	0	2
15201052012	2	2	1	2	0	0	4	1	0	0	2	2	7	0	0	0	0	1	0	0	0	0	1
15201052013	1	1	1	0	2	1	1	0	2	0	0	0	2	0	0	0	1	0	0	0	0	0	5
15201052020	3	1	1	3	0	1	1	0	3	1	0	0	3	0	1	0	0	0	0	0	0	0	0
15201052901	2	2	0	0	1	0	1	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1
15201062005	0	0	0	0	0	0	0	0	0	0	0	0	3	0	0	0	1	0	0	0	0	0	0
15201062010	8	0	5	4	3	2	9	0	1	1	1	0	5	1	0	0	0	0	0	0	0	0	0
15201062017	0	0	0	0	0	0	0	0	0	0	0	1	1	0	0	0	0	0	0	0	0	0	0
15201062901	1	1	1	0	1	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0	0
15201072901	9	1	4	3	4	1	3	1	5	2	1	1	8	0	2	1	0	2	0	1	0	0	4
15201082004	0	0	0	0	0	0	0	0	1	0	0	0	3	3	0	0	0	0	0	0	0	0	0
15201991999	6	5	7	19	19	22	27	3	16	24	26	28	157	2	17	20	14	16	0	1	0	0	7
15202012006	15	1	9	2	3	3	6	3	7	4	0	0	3	0	0	0	0	0	0	0	0	0	0
15202012008	1	0	2	3	2	1	0	0	1	0	0	0	1	0	0	0	0	0	0	0	0	0	1
15202012012	7	0	0	0	2	0	0	2	4	0	0	0	1	0	0	0	0	0	0	0	0	0	3
15202012015	20	6	2	5	4	5	12	1	13	2	4	4	41	2	9	1	10	19	0	3	0	0	6
15202022004	12	3	3	2	1	3	3	2	7	1	1	1	2	0	0	0	0	0	0	1	0	0	0
15202022005	4	3	0	0	1	0	0	0	2	0	0	1	2	0	0	0	1	0	0	0	0	0	1
15202022009	15	1	7	4	7	1	4	1	6	1	5	3	9	0	0	0	1	0	0	0	0	0	3
15202022011	9	1	1	2	3	0	0	2	1	4	8	3	21	0	23	1	1	4	0	0	0	0	3
15202022901	9	0	2	1	0	0	4	0	2	0	1	0	1	0	0	0	0	0	0	0	0	0	0
15202032001	10	0	0	1	0	0	2	1	0	0	0	0	1	0	5	0	1	0	0	0	0	0	1
15202032002	9	0	1	1	1	4	2	0	2	1	1	0	2	0	1	0	1	1	0	0	0	0	0
15202032010	4	2	0	2	0	0	1	1	2	0	1	0	1	0	0	0	0	1	0	0	0	0	0
15202032014	1	0	0	0	0	0	0	0	0	0	7	0	21	1	37	0	1	1	0	0	0	0	0
15202032901	7	1	3	3	0	0	0	0	2	0	0	0	0	0	0	0	0	0	0	0	0	0	0
15202042013	8	1	1	3	1	0	0	0	4	0	0	1	2	0	7	0	0	0	0	0	0	0	2
15202042901	5	1	1	0	2	2	0	0	3	0	0	1	0	0	0	0	0	0	0	0	0	0	1

Pueblo indígena

P16A_GRUPO Pueblo indígena u originario (grupo)

Atencion: hay que correr este pedazo de codigo una vez se cargue la tabla original.

tabla_P16A_GRUPO <- table(x$clave, x$P16A_GRUPO, useNA = "no")

# colnames(tabla_P16A_GRUPO) <- c( 
# "Mapuche","Aymara","Rapa Nui","Lican Antai","Quechua","Colla","Diaguita","Kawésqar","Yagán o Yamana","Otro pueblo","No aplica","Missing")


#write_xlsx(tabla_P16A_GRUPO, "tabla_P16A_GRUPO.xlsx")

a_P16A_GRUPO <- head(tabla_P16A_GRUPO,50)

kbl(a_P16A_GRUPO) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")

	1	2	3	4	5	6	7	10	98	99
15101011001	49	239	1	3	29	1	6	44	1137	36
15101011002	27	102	1	2	8	0	5	26	768	62
15101021001	172	261	0	9	28	0	14	48	2143	75
15102012002	0	23	0	0	0	0	0	0	2	0
15102012003	11	419	0	3	11	0	4	17	95	5
15102022007	0	29	0	0	0	0	0	0	10	0
15102032005	0	95	0	0	1	0	0	0	16	0
15102032008	0	12	0	0	0	0	0	0	2	0
15102032901	0	24	0	0	2	0	1	1	2	0
15102042001	6	128	0	0	3	0	0	0	43	1
15102052004	16	48	0	0	4	0	3	14	170	4
15102052006	1	12	0	0	0	0	0	0	17	0
15201011001	113	668	0	1	12	1	3	4	881	33
15201012901	0	20	0	0	0	0	0	0	17	0
15201022002	3	32	0	0	0	0	0	0	17	0
15201032006	1	25	0	0	0	0	0	0	5	0
15201032007	0	13	0	0	0	0	0	0	39	0
15201032901	0	35	0	0	0	0	0	0	0	0
15201042009	0	15	0	0	0	0	0	0	0	0
15201042021	0	63	0	0	3	0	0	0	7	2
15201042901	0	16	0	0	2	0	0	0	3	1
15201052001	0	48	0	0	4	0	0	1	0	10
15201052003	0	30	0	0	0	0	0	1	20	2
15201052012	0	21	0	0	0	0	0	0	4	0
15201052013	0	11	0	0	0	0	0	0	1	5
15201052020	0	15	0	0	1	0	0	1	1	0
15201052901	0	6	0	0	0	0	0	0	0	1
15201062005	0	1	0	0	0	0	0	0	3	0
15201062010	0	40	0	0	0	0	0	0	0	0
15201062017	0	1	0	0	0	0	0	0	1	0
15201062901	0	5	0	0	0	0	0	0	0	0
15201072901	0	33	0	0	0	0	0	8	11	1
15201082004	0	1	0	0	0	0	0	0	6	0
15201991999	3	226	0	0	112	3	0	2	87	3
15202012006	0	56	0	0	0	0	0	0	0	0
15202012008	0	11	0	0	0	0	0	0	0	1
15202012012	0	17	0	0	0	0	0	0	0	2
15202012015	1	128	0	0	0	0	0	2	34	4
15202022004	0	41	0	0	0	0	0	1	0	0
15202022005	0	15	0	0	0	0	0	0	0	0
15202022009	0	62	0	0	0	0	0	0	2	4
15202022011	6	31	0	0	0	0	0	1	49	0
15202022901	0	20	0	0	0	0	0	0	0	0
15202032001	1	15	0	0	0	0	0	0	5	1
15202032002	0	27	0	0	0	0	0	0	0	0
15202032010	0	15	0	0	0	0	0	0	0	0
15202032014	6	0	0	0	0	0	0	0	63	0
15202032901	0	16	0	0	0	0	0	0	0	0
15202042013	0	22	0	0	0	0	0	0	8	0
15202042901	0	13	0	0	0	0	0	0	2	1

Códigos territoriales

REGION_15R Códigos regiones a 15 regiones

tabla_REGION_15R <- table(x$clave, x$REGION_15R, useNA = "no")
#write_xlsx(tabla_P15A, "tabla_P15A.xlsx")

a_REGION_15R <- head(tabla_REGION_15R,50)

kbl(a_REGION_15R) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")

	15
15101011001	1545
15101011002	1001
15101021001	2750
15102012002	25
15102012003	565
15102022007	39
15102032005	112
15102032008	14
15102032901	30
15102042001	181
15102052004	259
15102052006	30
15201011001	1716
15201012901	37
15201022002	52
15201032006	31
15201032007	52
15201032901	35
15201042009	15
15201042021	75
15201042901	22
15201052001	63
15201052003	53
15201052012	25
15201052013	17
15201052020	18
15201052901	7
15201062005	4
15201062010	40
15201062017	2
15201062901	5
15201072901	53
15201082004	7
15201991999	436
15202012006	56
15202012008	12
15202012012	19
15202012015	169
15202022004	42
15202022005	15
15202022009	68
15202022011	87
15202022901	20
15202032001	22
15202032002	27
15202032010	15
15202032014	69
15202032901	16
15202042013	30
15202042901	16

PROVINCIA_15R Códigos provincias a 15 regiones

tabla_PROVINCIA_15R <- table(x$clave, x$PROVINCIA_15R, useNA = "no")
#write_xlsx(tabla_PROVINCIA_15R, "tabla_PROVINCIA_15R.xlsx")

a_PROVINCIA_15R <- head(tabla_PROVINCIA_15R,50)

kbl(a_PROVINCIA_15R) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")

	151	152
15101011001	1545	0
15101011002	1001	0
15101021001	2750	0
15102012002	25	0
15102012003	565	0
15102022007	39	0
15102032005	112	0
15102032008	14	0
15102032901	30	0
15102042001	181	0
15102052004	259	0
15102052006	30	0
15201011001	0	1716
15201012901	0	37
15201022002	0	52
15201032006	0	31
15201032007	0	52
15201032901	0	35
15201042009	0	15
15201042021	0	75
15201042901	0	22
15201052001	0	63
15201052003	0	53
15201052012	0	25
15201052013	0	17
15201052020	0	18
15201052901	0	7
15201062005	0	4
15201062010	0	40
15201062017	0	2
15201062901	0	5
15201072901	0	53
15201082004	0	7
15201991999	0	436
15202012006	0	56
15202012008	0	12
15202012012	0	19
15202012015	0	169
15202022004	0	42
15202022005	0	15
15202022009	0	68
15202022011	0	87
15202022901	0	20
15202032001	0	22
15202032002	0	27
15202032010	0	15
15202032014	0	69
15202032901	0	16
15202042013	0	30
15202042901	0	16

COMUNA_15R Códigos comunas a 15 regiones

tabla_COMUNA_15R <- table(x$clave, x$COMUNA_15R, useNA = "no")
#write_xlsx(tabla_COMUNA_15R, "tabla_COMUNA_15R.xlsx")

COMUNA_15R <- head(tabla_COMUNA_15R,50)

kbl(COMUNA_15R) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")

	15101	15102	15201	15202
15101011001	1545	0	0	0
15101011002	1001	0	0	0
15101021001	2750	0	0	0
15102012002	0	25	0	0
15102012003	0	565	0	0
15102022007	0	39	0	0
15102032005	0	112	0	0
15102032008	0	14	0	0
15102032901	0	30	0	0
15102042001	0	181	0	0
15102052004	0	259	0	0
15102052006	0	30	0	0
15201011001	0	0	1716	0
15201012901	0	0	37	0
15201022002	0	0	52	0
15201032006	0	0	31	0
15201032007	0	0	52	0
15201032901	0	0	35	0
15201042009	0	0	15	0
15201042021	0	0	75	0
15201042901	0	0	22	0
15201052001	0	0	63	0
15201052003	0	0	53	0
15201052012	0	0	25	0
15201052013	0	0	17	0
15201052020	0	0	18	0
15201052901	0	0	7	0
15201062005	0	0	4	0
15201062010	0	0	40	0
15201062017	0	0	2	0
15201062901	0	0	5	0
15201072901	0	0	53	0
15201082004	0	0	7	0
15201991999	0	0	436	0
15202012006	0	0	0	56
15202012008	0	0	0	12
15202012012	0	0	0	19
15202012015	0	0	0	169
15202022004	0	0	0	42
15202022005	0	0	0	15
15202022009	0	0	0	68
15202022011	0	0	0	87
15202022901	0	0	0	20
15202032001	0	0	0	22
15202032002	0	0	0	27
15202032010	0	0	0	15
15202032014	0	0	0	69
15202032901	0	0	0	16
15202042013	0	0	0	30
15202042901	0	0	0	16

Parte III: Análisis por comuna

i Debemos simplemente seleccionar el codigo comunal correcto. No hay cabecera para el código, sólo nombre de fila.

Obtengamos la suma para el campo P10:

variable <- filter(x, x$COMUNA == 15202)
variable <- sum(variable$P10)
variable

## [1] 2168

Despleguemos los 5 primeros registros de la comuna 15202:

variable1 <- filter(x, x$COMUNA == 15202)
a_011 <- head(variable1,5)
kbl(a_011) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")

REGION	PROVINCIA	COMUNA	DC	AREA	ZC_LOC	ID_ZONA_LOC	NVIV	NHOGAR	PERSONAN	P07	P08	P09	P10	P10COMUNA	P10PAIS	P11	P11COMUNA	P11PAIS	P12	P12COMUNA	P12PAIS	P12A_LLEGADA	P12A_TRAMO	P13	P14	P15	P15A	P16	P16A	P16A_OTRO	P17	P18	P19	P20	P21M	P21A	P10PAIS_GRUPO	P11PAIS_GRUPO	P12PAIS_GRUPO	ESCOLARIDAD	P16A_GRUPO	REGION_15R	PROVINCIA_15R	COMUNA_15R	P10COMUNA_15R	P11COMUNA_15R	P12COMUNA_15R	clave
15	152	15202	1	2	6	13225	1	1	1	1	1	73	1	98	998	3	15101	998	1	98	998	9998	98	2	4	6	2	1	2	98	7	98	98	98	98	9998	998	998	998	4	2	15	152	15202	98	15101	98	15202012006
15	152	15202	1	2	6	13225	3	1	1	1	1	78	1	98	998	2	98	998	1	98	998	9998	98	3	98	98	98	1	2	98	7	98	98	98	98	9998	998	998	998	0	2	15	152	15202	98	98	98	15202012006
15	152	15202	1	2	6	13225	3	1	2	2	2	78	1	98	998	2	98	998	1	98	998	9998	98	3	98	98	98	1	2	98	7	98	1	1	3	1965	998	998	998	0	2	15	152	15202	98	98	98	15202012006
15	152	15202	1	2	6	13225	3	1	3	5	2	52	1	98	998	2	98	998	1	98	998	9998	98	1	2	5	2	1	2	98	7	98	2	1	4	1995	998	998	998	2	2	15	152	15202	98	98	98	15202012006
15	152	15202	1	2	6	13225	3	1	4	11	1	44	1	98	998	2	98	998	1	98	998	9998	98	1	3	5	2	1	2	98	1	Z	98	98	98	9998	998	998	998	3	2	15	152	15202	98	98	98	15202012006

Crucemos con la relación de parentezco:

tabla_P07_15202 <- table(variable1$clave, variable1$P07)

kbl(tabla_P07_15202) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")

	1	2	4	5	6	7	8	11	12	13	14	15	16	17
15202012006	17	7	4	13	0	0	0	2	4	1	2	5	1	0
15202012008	7	3	0	2	0	0	0	0	0	0	0	0	0	0
15202012012	9	3	0	5	1	0	0	0	0	0	1	0	0	0
15202012015	59	8	6	29	0	3	0	3	3	0	11	18	1	28
15202022004	16	5	2	12	0	1	0	0	1	0	4	1	0	0
15202022005	8	2	0	4	0	0	1	0	0	0	0	0	0	0
15202022009	26	11	3	18	3	2	0	0	1	0	2	2	0	0
15202022011	12	3	2	7	0	0	0	0	9	0	3	0	0	51
15202022901	9	4	1	5	0	0	0	0	0	0	0	1	0	0
15202032001	8	1	1	6	0	0	0	0	0	0	1	0	0	5
15202032002	14	4	1	6	0	0	0	0	0	0	0	2	0	0
15202032010	8	1	0	4	0	0	0	0	1	0	1	0	0	0
15202032014	0	0	0	0	0	0	0	0	0	0	0	0	0	69
15202032901	10	5	0	1	0	0	0	0	0	0	0	0	0	0
15202042013	11	3	1	5	0	2	0	0	0	0	1	0	0	7
15202042901	6	1	0	1	1	2	0	0	2	0	2	0	1	0
15202992999	1	0	0	0	0	0	0	0	0	0	0	0	0	0